mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* script.c (scm_ice_9_already_loaded): New variable.

Browse source 
(scm_compile_shell_switches): Use it.
This commit is contained in:
Marius Vollmer 1997-05-08 12:51:12 +00:00
parent 803f85ccf7
commit 1b1b4739f2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/script.c
View file

@ -577,6 +577,11 @@ SCM_SYMBOL (sym_top_repl, "top-repl");
SCM_SYMBOL (sym_quit, "quit");
/* The boot code "ice-9/boot-9" is only loaded by
SCM_COMPILE_SHELL_SWITCHES when this is false. */
int scm_ice_9_already_loaded = 0;
/* Given an array of command-line switches, return a Scheme expression
to carry out the actions specified by the switches.
@ -593,7 +598,7 @@ SCM_SYMBOL (sym_quit, "quit");
ice-9 into modules which can be frozen and statically linked like any
other module. Then all the modules can describe their dependencies in
the usual way, and the auto-generated inner_main will do the right
thing. */
thing. */
SCM
scm_compile_shell_switches (int argc, char **argv)
@ -769,7 +774,8 @@ scm_compile_shell_switches (int argc, char **argv)
SCM init_path = scm_sys_search_load_path (scm_makfrom0str ("init.scm"));
/* Load Ice-9. */
scm_primitive_load_path (scm_makfrom0str ("ice-9/boot-9.scm"));
if (!scm_ice_9_already_loaded)
scm_primitive_load_path (scm_makfrom0str ("ice-9/boot-9.scm"));
/* Load the init.scm file. */
if (SCM_NFALSEP (init_path))