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

use internal `equal?'-based table in atomic mode

Browse Source 
for kill safety
This commit is contained in:
Matthew Flatt 2011-08-09 12:35:34 -06:00
parent d3f1bed4ae
commit 376a673a0c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2431,7 +2431,9 @@ static Scheme_Object *taint_intern(Scheme_Object *v)
{ {
Scheme_Bucket *b; Scheme_Bucket *b;
scheme_start_atomic();
b = scheme_bucket_from_table(taint_intern_table, (const char *)v); b = scheme_bucket_from_table(taint_intern_table, (const char *)v);
scheme_end_atomic_no_swap();
if (!b->val) if (!b->val)
b->val = scheme_true; b->val = scheme_true;
v = (Scheme_Object *)HT_EXTRACT_WEAK(b->key); v = (Scheme_Object *)HT_EXTRACT_WEAK(b->key);