* init.c (scm_init_guile_1, invoke_main_func): Call

scm_load_startup_files in scm_init_guile_1, not in
invoke_main_func.

diff --git a/libguile/init.c b/libguile/init.c
index 60ea523..955cd8d 100644 (file)
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -594,6 +594,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
   scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P;
 #endif
 
+  scm_load_startup_files ();
 }
 
 /* Record here whether SCM_BOOT_GUILE_1 has already been called.  This
@@ -635,8 +636,6 @@ invoke_main_func (void *body_data)
 {
   struct main_func_closure *closure = (struct main_func_closure *) body_data;
 
-  scm_load_startup_files ();
-
   (*closure->main_func) (closure->closure, closure->argc, closure->argv);
 
   /* never reached */