summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-02 09:25:00 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-02 09:25:00 +0000
commitd0e32dd50dd20974647be1b68fc5824ae8a669a3 (patch)
tree555b32d928588058f44ee6decfd09f33950610e1 /libguile/script.c
parent545e743d6c71b80aca6c33f09f992329951502a0 (diff)
downloadguile-d0e32dd50dd20974647be1b68fc5824ae8a669a3.tar.gz
* script.c (scm_compile_shell_switches): Allow NULL argv if argc
is zero. (Thanks to Dirk Herrmann.)
Diffstat (limited to 'libguile/script.c')
-rw-r--r--libguile/script.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/script.c b/libguile/script.c
index 6bdd32561..44be7c8f8 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -461,10 +461,11 @@ 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 = argv[0];
+ char *argv0 = 0;
if (argc > 0)
{
+ argv0 = argv[0];
scm_usage_name = strrchr (argv[0], '/');
if (! scm_usage_name)
scm_usage_name = argv[0];