summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 23:13:44 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-21 23:13:44 +0000
commit2b9c8690290c683b9d8438cad0ca389cebd4de8f (patch)
treeff2ffc1b0354125bc6bb71dfb280e1efff194d91
parentabd95148aa8e9a499eef73337c2ccc5f8094a610 (diff)
downloadguile-2b9c8690290c683b9d8438cad0ca389cebd4de8f.tar.gz
* init.c (scm_boot_guile_1): Added `scm_init_hooks'.
-rw-r--r--libguile/init.c5
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