From af3509d72cc62dd125168c1d12e4ffbbfecae9fe Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Sun, 28 Sep 1997 03:13:36 +0000
Subject: [PATCH] * 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.

---
 libguile/script.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libguile/script.c b/libguile/script.c
index 6eee76b86..859746aeb 100644
--- 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++)
     {