From 3fe4a22dbd999549806af979974fac3bcbf8d9c0 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 14 Apr 2010 18:20:25 -0400
Subject: [PATCH] [Places] allocate prefab_table correctly

---
 src/mzscheme/src/struct.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/mzscheme/src/struct.c b/src/mzscheme/src/struct.c
index 04fa7f81a1..61d188a9b4 100644
--- a/src/mzscheme/src/struct.c
+++ b/src/mzscheme/src/struct.c
@@ -614,6 +614,10 @@ scheme_init_struct (Scheme_Env *env)
   REGISTER_SO(prefab_symbol);
   prefab_symbol = scheme_intern_symbol("prefab");
 
+  REGISTER_SO(prefab_table);
+  prefab_table = scheme_make_weak_equal_table();
+  
+
   REGISTER_SO(scheme_source_property);
   {
     guard = scheme_make_prim_w_arity(check_exn_source_property_value_ok,
@@ -4010,11 +4014,6 @@ static Scheme_Struct_Type *hash_prefab(Scheme_Struct_Type *type)
 {
   Scheme_Object *k, *v;
   
-  if (!prefab_table) {
-    REGISTER_SO(prefab_table);
-    prefab_table = scheme_make_weak_equal_table();
-  }
-  
   k = make_prefab_key(type);
   type->prefab_key = k;