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

(scm_init_guile_1): Call `scm_init_goops' instead of

Browse source 
`scm_init_oop_goops_goopscore_module'.  Call `scm_init_rdelim' and
`scm_init_rw' prior to loading the startup files.
This commit is contained in:
Marius Vollmer 2001-05-19 00:29:36 +00:00
parent 43fd440257
commit e2d085f3a2
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/init.c
View file

@ -577,7 +577,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_init_lang (); scm_init_lang ();
scm_init_script (); scm_init_script ();
scm_init_oop_goops_goopscore_module (); scm_init_goops ();
scm_initialized_p = 1; scm_initialized_p = 1;
@ -588,13 +588,10 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
#endif #endif
scm_load_startup_files ();
/* these are located here, not from a deep understanding of the
module system, but as a way of avoiding segv and other
undesirable side effects that arise from various alternatives. */
scm_init_rdelim (); scm_init_rdelim ();
scm_init_rw (); scm_init_rw ();
scm_load_startup_files ();
} }
/* Record here whether SCM_BOOT_GUILE_1 has already been called. This /* Record here whether SCM_BOOT_GUILE_1 has already been called. This