From: Andy Wingo <wingo@pobox.com>
Date: Tue, 5 Jan 2010 18:49:18 +0000 (+0100)
Subject: boot the VM very early in init.c
X-Git-Tag: release_1-9-7~81
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2be89ca129e078f7e558d07b93ce89bf9ed13a9d;p=platform%2Fupstream%2Fguile.git

boot the VM very early in init.c

* libguile/init.c (scm_i_init_guile): Now that the VM doesn't depend on
  smobs, we can boot it before anything.
---

diff --git a/libguile/init.c b/libguile/init.c
index b3d67a9b9..abca49048 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -448,6 +448,11 @@ scm_i_init_guile (SCM_STACKITEM *base)
   scm_modules_prehistory ();
   scm_init_array_handle ();
   scm_bootstrap_bytevectors ();   /* Requires array-handle */
+  scm_bootstrap_instructions ();
+  scm_bootstrap_objcodes ();
+  scm_bootstrap_programs ();
+  scm_bootstrap_vm ();
+
   scm_init_strings ();            /* Requires array-handle */
   scm_init_struct ();             /* Requires strings */
   scm_smob_prehistory ();
@@ -522,11 +527,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
   scm_init_arrays ();    /* Requires smob_prehistory, array-handle */
   scm_init_array_map ();
 
-  scm_bootstrap_instructions ();
-  scm_bootstrap_objcodes ();
-  scm_bootstrap_programs ();
-  scm_bootstrap_vm ();
-
   scm_init_frames ();   /* Requires smob_prehistory */
   scm_init_stacks ();   /* Requires strings, struct, frames */
   scm_init_symbols ();