fix `raco ctool -e' for syntax taints

Merge to 5.1.2 (cherry picked from commit 8504996862)
2011-07-20 14:09:27 -06:00 · 2011-07-20 14:09:27 -06:00 · f87c5acdf9
commit f87c5acdf9
parent eddf893dc6
1 changed files with 1 additions and 1 deletions
--- 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 ...)))]