From ff024068d9a8634857c2e8980b179108fdc275b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Aug 2011 10:46:35 -0600
Subject: [PATCH] fix syntax-taint problem in expander

---
 src/racket/src/compile.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/racket/src/compile.c b/src/racket/src/compile.c
index d98e20e680..28698e77f2 100644
--- a/src/racket/src/compile.c
+++ b/src/racket/src/compile.c
@@ -4723,6 +4723,8 @@ static int arg_count(Scheme_Object *lam, Scheme_Comp_Env *env)
   Scheme_Object *l, *id, *form = lam;
   int cnt = 0;
   DupCheckRecord r;
+
+  lam = scheme_stx_taint_disarm(lam, NULL);
   
   lam = SCHEME_STX_CDR(lam);
   if (!SCHEME_STX_PAIRP(lam)) return -1;