mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* script.c (scm_compile_shell_switches): Bugfix: Don't discount i

Browse source 
from argc if argc was 0 initially.
This commit is contained in:
Mikael Djurfeldt 1998-04-18 21:58:47 +00:00
parent 90ff3ec5f6
commit 28795b1f48
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/script.c
View file

@ -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",