From 75356882550a7996e473e7a3a8e0a861d96da93f Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 9 Sep 2008 15:55:06 +0000
Subject: [PATCH] Fix symbol table not being cleaned up after creating a place

svn: r11606
---
 src/mzscheme/src/env.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index bc9a75cd13..fe2fe759c7 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -316,6 +316,9 @@ Scheme_Env *scheme_engine_instance_init() {
   scheme_init_thread_memory();
 #endif
 
+#ifndef MZ_PRECISE_GC
+  scheme_init_ephemerons();
+#endif
   
   place_instance_init_pre_kernel(stack_base);
   make_kernel_env();
@@ -334,7 +337,6 @@ static void place_instance_init_pre_kernel(void *stack_base) {
 
 #ifndef MZ_PRECISE_GC
   scheme_init_setjumpup();
-  scheme_init_ephemerons();
 #endif
 
   scheme_init_stack_check();