From 85a0ef9a5a38ce62f0e78296355b7d588403a46d Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 29 Sep 2009 20:45:41 +0000
Subject: [PATCH] macro-debugger: fixed #%expr regression due to lift cleanup
 Please apply to the pre-release branch.

svn: r16173

original commit: a45782a7d28076e9b3400f016cb9720e777dce0f
---
 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
index c7b5146..c0b3964 100644
--- 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]