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

* script.c (scm_compile_shell_switches): If we hit the -c or --

Browse source 
arguments, don't set the car of (command-line) to scm_usage_name,
the prettified name of the guile executable; give it the full
path, the way shells usually handle $0.
This commit is contained in:
Jim Blandy 1997-09-28 03:13:36 +00:00
parent f8392303c5
commit af3509d72c
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/script.c
View file

@ -461,7 +461,7 @@ scm_compile_shell_switches (int argc, char **argv)
int interactive = 1; /* Should we go interactive when done? */ int interactive = 1; /* Should we go interactive when done? */
int use_emacs_interface = 0; int use_emacs_interface = 0;
int i; int i;
char *argv0; char *argv0 = argv[0];
if (argc > 0) if (argc > 0)
{ {
@ -473,7 +473,6 @@ scm_compile_shell_switches (int argc, char **argv)
} }
if (! scm_usage_name) if (! scm_usage_name)
scm_usage_name = "guile"; scm_usage_name = "guile";
argv0 = scm_usage_name;
for (i = 1; i < argc; i++) for (i = 1; i < argc; i++)
{ {