diff options
-rw-r--r-- | libguile/gc.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index afa8039ab..cfdc36055 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -681,6 +681,7 @@ scm_storage_prehistory () GC_all_interior_pointers = 0; GC_INIT (); + GC_expand_hp (SCM_DEFAULT_INIT_HEAP_SIZE_2); /* We only need to register a displacement for those types for which the higher bits of the type tag are used to store a pointer (that is, a |