www

commit 85a0ef9a5a38ce62f0e78296355b7d588403a46d
parent b9fb5ef076944dc85552a7fb0e0b0ba441b7b83e
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 29 Sep 2009 20:45:41 +0000

macro-debugger: fixed #%expr regression due to lift cleanup
Please apply to the pre-release branch.

svn: r16173

original commit: a45782a7d28076e9b3400f016cb9720e777dce0f

Diffstat:
M
collects/macro-debugger/model/reductions.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss
@@ -118,12 +118,13 @@
         [#:pass1]
         [Expr ?inner inner]
         [#:pattern ?form]
+        [#:let oldform #'?form]
         [#:with-visible-form
          [#:left-foot]
          [#:set-syntax (stx-car (stx-cdr #'?form))]
          [#:step 'macro]]
         [#:pass2]
-        [#:set-syntax (stx-car (stx-cdr #'?form))]
+        [#:set-syntax (stx-car (stx-cdr oldform))]
         [#:rename ?form untag])]
     [(Wrap p:if (e1 e2 rs ?1 test then else))
      (R [! ?1]