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

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.

diff --git a/libguile/script.c b/libguile/script.c
index 6eee76b..859746a 100644 (file)
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -461,7 +461,7 @@ scm_compile_shell_switches (int argc, char **argv)
   int interactive = 1;         /* Should we go interactive when done? */
   int use_emacs_interface = 0;
   int i;
-  char *argv0;
+  char *argv0 = argv[0];
 
   if (argc > 0)
     {
@@ -473,7 +473,6 @@ scm_compile_shell_switches (int argc, char **argv)
     }
   if (! scm_usage_name)
     scm_usage_name = "guile";
-  argv0 = scm_usage_name;
   
   for (i = 1; i < argc; i++)
     {