From e16e36e49c29d8d827f9a376de516c82f42f7689 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 29 Jun 2011 20:20:59 -0600
Subject: [PATCH] fix problem pushing instantiation-time inspector

---
 src/racket/src/syntax.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c
index 6cd6dc2419..a14545f3f5 100644
--- a/src/racket/src/syntax.c
+++ b/src/racket/src/syntax.c
@@ -2514,8 +2514,14 @@ static Scheme_Object *set_false_insp(Scheme_Object *o, Scheme_Object *false_insp
 
   if (is_tainted(o))
     return o;
-  if (is_armed(o) && SCHEME_TRUEP(SCHEME_CAR(((Scheme_Stx *)o)->taints)))
-    return o;
+  else if (is_armed(o)) {
+    if (SCHEME_TRUEP(SCHEME_CAR(((Scheme_Stx *)o)->taints)))
+      return o;
+  } else {
+    if (((Scheme_Stx *)o)->taints)
+      /* `taints' must be an inspector already */
+      return o;
+  }
 
   if (need_clone)
     o = clone_stx(o);