common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

clean some line.

Browse source
This commit is contained in:
SANO Masatoshi 2015-03-20 22:20:21 +09:00
parent 23b89bb57e
commit af2fe78327
2 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/cmd-run-sbcl.c
View file

@ -1,4 +1,3 @@
#include <stdio.h>
#include "util.h"
#include "opt.h"

4
src/cmd-run.c
View file

@ -9,7 +9,6 @@
#include "opt.h"
#define ROS_RUN_REPL "run"
#define ROS_RUN_COMPILE "output"
#ifdef _WIN32
BOOL WINAPI ConsoleCtrlHandler(DWORD ctrlChar){
@ -257,11 +256,9 @@ void register_cmd_run(void) {
run_options=register_runtime_options(run_options);
run_options=add_command(run_options,"",NULL,cmd_run_star,OPT_SHOW_NONE,1,NULL,NULL);
run_options=nreverse(run_options);
//run_commands=add_command(run_commands,"*",NULL,cmd_run_star,OPT_SHOW_NONE,1,NULL,NULL);
/*commands*/
top_options=add_command(top_options,"" ,NULL,cmd_script_frontend,OPT_SHOW_NONE,1,"Run lisp environment then quit (default)",NULL);
// top_commands=add_command(top_commands,"output" ,NULL,cmd_run,1,1,"Generate an executable script or binary from the software specification",NULL);
top_commands=add_command(top_commands,ROS_RUN_REPL ,NULL,cmd_run,OPT_SHOW_HELP,1,"Run repl",NULL);
top_commands=add_command(top_commands,"*" ,NULL,cmd_script_frontend,OPT_SHOW_NONE,1,"Run lisp environment then quit (default)",NULL);
@ -270,6 +267,5 @@ void register_cmd_run(void) {
s(_help);
_help=cat("Usage: ",argv_orig[0]," [OPTIONS] [--] script-file arguments...\n\n",
NULL);
top_helps=add_help(top_helps,"--",_help,run_commands,run_options,NULL,NULL,NULL);
s(_help);
}