diff options
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/script.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 53d160db9..1e4f8632d 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +1998-04-02 Mikael Djurfeldt <mdj@nada.kth.se> + + * script.c (scm_compile_shell_switches): Allow NULL argv if argc + is zero. (Thanks to Dirk Herrmann.) + 1998-03-30 Mikael Djurfeldt <mdj@nada.kth.se> * ports.c (scm_add_to_port_table): First line is now line 0 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]; |