suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[Places] allocate prefab_table correctly

Browse Source
This commit is contained in:
Kevin Tew 2010-04-14 18:20:25 -04:00
parent 41e469d7ae
commit 3fe4a22dbd
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/mzscheme/src/struct.c
View File

@ -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;