suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

macro-debugger: fixed #%expr regression due to lift cleanup

Browse Source 
Please apply to the pre-release branch.

svn: r16173

original commit: a45782a7d28076e9b3400f016cb9720e777dce0f
This commit is contained in:
Ryan Culpepper 2009-09-29 20:45:41 +00:00
parent b9fb5ef076
commit 85a0ef9a5a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/macro-debugger/model/reductions.ss
View File

@ -118,12 +118,13 @@
[#:pass1] [#:pass1]
[Expr ?inner inner] [Expr ?inner inner]
[#:pattern ?form] [#:pattern ?form]
[#:let oldform #'?form]
[#:with-visible-form [#:with-visible-form
[#:left-foot] [#:left-foot]
[#:set-syntax (stx-car (stx-cdr #'?form))] [#:set-syntax (stx-car (stx-cdr #'?form))]
[#:step 'macro]] [#:step 'macro]]
[#:pass2] [#:pass2]
[#:set-syntax (stx-car (stx-cdr #'?form))] [#:set-syntax (stx-car (stx-cdr oldform))]
[#:rename ?form untag])] [#:rename ?form untag])]
[(Wrap p:if (e1 e2 rs ?1 test then else)) [(Wrap p:if (e1 e2 rs ?1 test then else))
(R [! ?1] (R [! ?1]