mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 15:10:29 +02:00
Code Activity

* script.c (scm_compile_shell_switches): don't append (quit) if

Browse source 
interactive.
(scm_shell): call scm_exit_status and exit on the result of the
evaluation.
This commit is contained in:
Gary Houston 1997-05-13 04:49:49 +00:00
parent 1fbc60b2c3
commit 08fea0882d
2 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/script.c
View file

@ -761,12 +761,13 @@ scm_compile_shell_switches (int argc, char **argv)
tail = scm_cons (scm_cons (sym_load_user_init, SCM_EOL), tail);
tail = scm_cons (scm_cons (sym_top_repl, SCM_EOL), tail);
}
/* After doing all the other actions prescribed by the command line,
quit. */
tail = scm_cons (scm_cons (sym_quit, SCM_EOL),
else
{
/* After doing all the other actions prescribed by the command line,
quit. */
tail = scm_cons (scm_cons (sym_quit, SCM_EOL),
tail);
}
{
/* We want a path only containing directories from SCHEME_LOAD_PATH,
SCM_SITE_DIR and SCM_LIBRARY_DIR when searching for the site init
@ -813,7 +814,7 @@ scm_shell (argc, argv)
}
}
scm_eval_x (scm_compile_shell_switches (argc, argv));
exit (scm_exit_status (scm_eval_x (scm_compile_shell_switches (argc,argv))));
}