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

make weak taint table actually weak

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-08 06:28:43 -06:00
parent 0e95d49ddb
commit 4392ab7636
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/syntax.c
View File

@ -2432,10 +2432,9 @@ static Scheme_Object *taint_intern(Scheme_Object *v)
Scheme_Bucket *b; Scheme_Bucket *b;
b = scheme_bucket_from_table(taint_intern_table, (const char *)v); b = scheme_bucket_from_table(taint_intern_table, (const char *)v);
if (b->val) if (!b->val)
v = b->val; b->val = scheme_true;
else v = (Scheme_Object *)HT_EXTRACT_WEAK(b->key);
b->val = v;
return v; return v;
} }