diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:13:44 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-21 23:13:44 +0000 |
commit | 2b9c8690290c683b9d8438cad0ca389cebd4de8f (patch) | |
tree | ff2ffc1b0354125bc6bb71dfb280e1efff194d91 | |
parent | abd95148aa8e9a499eef73337c2ccc5f8094a610 (diff) | |
download | guile-2b9c8690290c683b9d8438cad0ca389cebd4de8f.tar.gz |
* init.c (scm_boot_guile_1): Added `scm_init_hooks'.
-rw-r--r-- | libguile/init.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/init.c b/libguile/init.c index 76e5a97a8..15b106585 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -81,6 +81,7 @@ #include "libguile/gsubr.h" #include "libguile/hash.h" #include "libguile/hashtab.h" +#include "libguile/hooks.h" #ifdef GUILE_ISELECT #include "libguile/iselect.h" #endif @@ -489,6 +490,7 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure) #else scm_init_storage (0, 0); #endif + scm_weaks_prehistory (); /* Must come after scm_init_storage */ scm_init_subr_table (); scm_init_root (); #ifdef USE_THREADS @@ -512,10 +514,11 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure) scm_init_fluids (); scm_init_backtrace (); /* Requires fluids */ scm_init_fports (); - scm_init_gc (); scm_init_gdbint (); scm_init_hash (); scm_init_hashtab (); + scm_init_hooks (); + scm_init_gc (); /* Requires hooks */ #ifdef GUILE_ISELECT scm_init_iselect (); #endif |