summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-18 21:58:47 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-18 21:58:47 +0000
commit28795b1f486dc062cb38aeecd96e662212c47365 (patch)
treeab9f910412e28329e0d61ed664317c75c76c41ab /libguile/script.c
parent90ff3ec5f606666f72273d316d1be0a461b035fa (diff)
downloadguile-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.c2
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",