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

* init.c (scm_init_guile_1, invoke_main_func): Call

Browse source 
scm_load_startup_files in scm_init_guile_1, not in
invoke_main_func.
This commit is contained in:
Marius Vollmer 2000-10-20 00:31:29 +00:00
parent c6ba6ce6e3
commit 612a55e5e3
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/init.c
View file

@ -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 */