frightening bug, #%if was capturing everything

2010-10-20 12:03:59 -07:00 · 2010-10-20 12:03:59 -07:00 · 34fbc9a06f
commit 34fbc9a06f
parent dfe6f78d80
1 changed files with 1 additions and 1 deletions
--- a/collects/stepper/private/annotate.rkt
+++ b/collects/stepper/private/annotate.rkt
@ -150,7 +150,7 @@
                 stx
                 #f
                 ; cond :
-                 [(#%if test (#%let () then) else-stx)
+                 [(if test (let-values () then) else-stx)
                  (let ([origin (syntax-property stx 'origin)]
                        [rebuild-if
                         (lambda (new-cond-test)