diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-18 21:58:47 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-18 21:58:47 +0000 |
commit | 28795b1f486dc062cb38aeecd96e662212c47365 (patch) | |
tree | ab9f910412e28329e0d61ed664317c75c76c41ab /libguile/script.c | |
parent | 90ff3ec5f606666f72273d316d1be0a461b035fa (diff) | |
download | guile-28795b1f486dc062cb38aeecd96e662212c47365.tar.gz |
* script.c (scm_compile_shell_switches): Bugfix: Don't discount i
from argc if argc was 0 initially.
Diffstat (limited to 'libguile/script.c')
-rw-r--r-- | libguile/script.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/script.c b/libguile/script.c index a264106d2..786dc5a68 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -591,7 +591,7 @@ scm_compile_shell_switches (int argc, char **argv) /* Make any remaining arguments available to the script/command/whatever. */ - scm_set_program_arguments (argc - i, argv + i, argv0); + scm_set_program_arguments (argc ? argc - i : 0, argv + i, argv0); /* If the --emacs switch was set, now is when we process it. */ scm_sysintern ("use-emacs-interface", |