mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* script.c (scm_compile_shell_switches): Use "guile" as default

Browse source 
zero arg if argc is NULL.
This commit is contained in:
Mikael Djurfeldt 1998-04-10 19:01:53 +00:00
parent d0e32dd50d
commit 1abb11b658
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
1998-04-10 Mikael Djurfeldt <mdj@kenneth>
* script.c (scm_compile_shell_switches): Use "guile" as default
zero arg if argc is NULL.
1998-04-02 Mikael Djurfeldt <mdj@nada.kth.se> 1998-04-02 Mikael Djurfeldt <mdj@nada.kth.se>
* script.c (scm_compile_shell_switches): Allow NULL argv if argc * script.c (scm_compile_shell_switches): Allow NULL argv if argc

6
libguile/script.c
View file

@ -448,6 +448,8 @@ int scm_ice_9_already_loaded = 0;
the usual way, and the auto-generated inner_main will do the right the usual way, and the auto-generated inner_main will do the right
thing. */ thing. */
static char guile[] = "guile";
SCM SCM
scm_compile_shell_switches (int argc, char **argv) scm_compile_shell_switches (int argc, char **argv)
{ {
@ -461,7 +463,7 @@ scm_compile_shell_switches (int argc, char **argv)
int interactive = 1; /* Should we go interactive when done? */ int interactive = 1; /* Should we go interactive when done? */
int use_emacs_interface = 0; int use_emacs_interface = 0;
int i; int i;
char *argv0 = 0; char *argv0 = guile;
if (argc > 0) if (argc > 0)
{ {
@ -473,7 +475,7 @@ scm_compile_shell_switches (int argc, char **argv)
scm_usage_name++; scm_usage_name++;
} }
if (! scm_usage_name) if (! scm_usage_name)
scm_usage_name = "guile"; scm_usage_name = guile;
for (i = 1; i < argc; i++) for (i = 1; i < argc; i++)
{ {