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

6
libguile/script.c
View file

@ -577,6 +577,11 @@ SCM_SYMBOL (sym_top_repl, "top-repl");
SCM_SYMBOL (sym_quit, "quit"); 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 /* Given an array of command-line switches, return a Scheme expression
to carry out the actions specified by the switches. to carry out the actions specified by the switches.
@ -769,6 +774,7 @@ scm_compile_shell_switches (int argc, char **argv)
SCM init_path = scm_sys_search_load_path (scm_makfrom0str ("init.scm")); SCM init_path = scm_sys_search_load_path (scm_makfrom0str ("init.scm"));
/* Load Ice-9. */ /* Load Ice-9. */
if (!scm_ice_9_already_loaded)
scm_primitive_load_path (scm_makfrom0str ("ice-9/boot-9.scm")); scm_primitive_load_path (scm_makfrom0str ("ice-9/boot-9.scm"));
/* Load the init.scm file. */ /* Load the init.scm file. */