mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* script.c (scm_compile_shell_switches): Allow NULL argv if argc

Browse source 
is zero.  (Thanks to Dirk Herrmann.)
This commit is contained in:
Mikael Djurfeldt 1998-04-02 09:25:00 +00:00
parent 545e743d6c
commit d0e32dd50d
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -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

3
libguile/script.c
View file

@ -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];