From 011b79180b1544e19b5f7b0043f54249e6e1d7e8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 29 Jun 2011 20:48:11 -0600
Subject: [PATCH] fix another stx-vs-#f bug

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

diff --git a/src/racket/src/compile.c b/src/racket/src/compile.c
index 3c5b528f5b..baf93f6f8a 100644
--- a/src/racket/src/compile.c
+++ b/src/racket/src/compile.c
@@ -4050,7 +4050,7 @@ scheme_compile_expand_expr(Scheme_Object *form, Scheme_Comp_Env *env,
     stx = quick_stx;
     quick_stx = NULL;
   } else
-    stx = scheme_datum_to_syntax(stx, scheme_false, form, 0, 2);
+    stx = scheme_datum_to_syntax(stx, scheme_false, form, 0, 0);
 
   if (rec[drec].comp)
     can_recycle_stx = stx;