X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/dac04e9fb9fe0fcd39a375b57f8380e1798c7ef7..277ee0fa4c63602f66fd1dd976ade36b116db297:/libguile/gc-freelist.c

diff --git a/libguile/gc-freelist.c b/libguile/gc-freelist.c
index 1b9780531..8fce129db 100644
--- a/libguile/gc-freelist.c
+++ b/libguile/gc-freelist.c
@@ -168,8 +168,11 @@ scm_gc_init_freelist (void)
   int init_heap_size_2
     = scm_getenv_int ("GUILE_INIT_SEGMENT_SIZE_2", SCM_DEFAULT_INIT_HEAP_SIZE_2);
 
-  scm_i_freelist = SCM_EOL;
-  scm_i_freelist2 = SCM_EOL;
+  /* These are the thread-local freelists. */
+  scm_key_create (&scm_i_freelist, free);
+  scm_key_create (&scm_i_freelist2, free);
+  SCM_FREELIST_CREATE (scm_i_freelist);
+  SCM_FREELIST_CREATE (scm_i_freelist2);
   
   scm_init_freelist (&scm_i_master_freelist2, 2, 
 		     scm_getenv_int ("GUILE_MIN_YIELD_2", SCM_DEFAULT_MIN_YIELD_2));