Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

only add a dummy script name argument for the -R usage, not -r (fixes #814)

Browse source
This commit is contained in:
Alex Shinn 2022-02-23 07:44:48 +09:00
parent 940f315b67
commit e587881c2c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main.c
View file

@ -560,7 +560,7 @@ sexp run_main (int argc, char **argv) {
sym=sexp_intern(ctx, sexp_raw_script_file_symbol, -1), tmp); sym=sexp_intern(ctx, sexp_raw_script_file_symbol, -1), tmp);
for (j=argc-1; j>=i; j--) for (j=argc-1; j>=i; j--)
args = sexp_cons(ctx, tmp=sexp_c_string(ctx,argv[j],-1), args); args = sexp_cons(ctx, tmp=sexp_c_string(ctx,argv[j],-1), args);
if (main_symbol) if (main_module)
args = sexp_cons(ctx, tmp=sexp_c_string(ctx,main_symbol,-1), args); args = sexp_cons(ctx, tmp=sexp_c_string(ctx,main_symbol,-1), args);
if (args == SEXP_NULL) if (args == SEXP_NULL)
args = sexp_cons(ctx, tmp=sexp_c_string(ctx,"",-1), args); args = sexp_cons(ctx, tmp=sexp_c_string(ctx,"",-1), args);