macro-debugger: fixed module & local-expansion bug

svn: r17666

original commit: 9a2408f2674d138657b256ad110a5c1987634b4a
This commit is contained in:
Ryan Culpepper 2010-01-15 20:13:09 +00:00
parent 34c1af4bd5
commit 9fb6db9c14

View File

@ -67,8 +67,9 @@
[(Wrap p:module (e1 e2 rs ?1 locals tag rename check tag2 ?3 body shift)) [(Wrap p:module (e1 e2 rs ?1 locals tag rename check tag2 ?3 body shift))
(R [#:hide-check rs] (R [#:hide-check rs]
[! ?1] [! ?1]
[#:pattern ?form]
[LocalActions ?form locals]
[#:pattern (?module ?name ?language . ?body-parts)] [#:pattern (?module ?name ?language . ?body-parts)]
[LocalActions ?body-parts locals]
[#:when tag [#:when tag
[#:in-hole ?body-parts [#:in-hole ?body-parts
[#:walk (list tag) 'tag-module-begin]]] [#:walk (list tag) 'tag-module-begin]]]