From f87c5acdf93078de947385bf23de34c59952d4ad Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 20 Jul 2011 14:09:27 -0600
Subject: [PATCH] fix `raco ctool -e' for syntax taints

Merge to 5.1.2
(cherry picked from commit 85049968624b0f0f67ab46416281b0ac3d19d0a0)
---
 collects/compiler/src2src.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/src2src.rkt b/collects/compiler/src2src.rkt
index 175ad03a68..f6d635f772 100644
--- a/collects/compiler/src2src.rkt
+++ b/collects/compiler/src2src.rkt
@@ -1576,7 +1576,7 @@
 	 norm?))))
 
   (define (parse-let % rec? stx env loop)
-    (syntax-case stx ()
+    (syntax-case (syntax-disarm stx code-insp) ()
       [(_ ([vars rhs] ...) . body)
        (let* ([varses (syntax->list (syntax (vars ...)))]
 	      [rhses (syntax->list (syntax (rhs ...)))]