diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-02 09:25:00 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-02 09:25:00 +0000 |
commit | d0e32dd50dd20974647be1b68fc5824ae8a669a3 (patch) | |
tree | 555b32d928588058f44ee6decfd09f33950610e1 /libguile/script.c | |
parent | 545e743d6c71b80aca6c33f09f992329951502a0 (diff) | |
download | guile-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.c | 3 |
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]; |