From 4392ab7636100493e521cab8def320a574935a0c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Jul 2011 06:28:43 -0600
Subject: [PATCH] make weak taint table actually weak

---
 src/racket/src/syntax.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c
index 887af427fe..c37049d23c 100644
--- a/src/racket/src/syntax.c
+++ b/src/racket/src/syntax.c
@@ -2432,10 +2432,9 @@ static Scheme_Object *taint_intern(Scheme_Object *v)
   Scheme_Bucket *b;
 
   b = scheme_bucket_from_table(taint_intern_table, (const char *)v);
-  if (b->val)
-    v = b->val;
-  else
-    b->val = v;
+  if (!b->val)
+    b->val = scheme_true;
+  v = (Scheme_Object *)HT_EXTRACT_WEAK(b->key);
 
   return v;
 }