* init.c (scm_boot_guile_1): Make 2-word segment 8K (512 cells).

diff --git a/libguile/init.c b/libguile/init.c
index ef97770..5299c3f 100644 (file)
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -459,7 +459,7 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
       scm_ports_prehistory ();
       scm_smob_prehistory ();
       scm_tables_prehistory ();
-      scm_init_storage (0, 0);
+      scm_init_storage (0, 8192);
       scm_init_subr_table ();
       scm_init_root ();
 #ifdef USE_THREADS