summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/script.c3
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];