macro-debugger: fixed module & local-expansion bug

svn: r17666
2010-01-15 20:13:09 +00:00 · 2010-01-15 20:13:09 +00:00 · 9a2408f267
commit 9a2408f267
parent 3fc133a0b8
1 changed files with 2 additions and 1 deletions
--- a/collects/macro-debugger/model/reductions.ss
+++ b/collects/macro-debugger/model/reductions.ss
@ -67,8 +67,9 @@
    [(Wrap p:module (e1 e2 rs ?1 locals tag rename check tag2 ?3 body shift))
     (R [#:hide-check rs]
        [! ?1]
+        [#:pattern ?form]
+        [LocalActions ?form locals]
        [#:pattern (?module ?name ?language . ?body-parts)]
-        [LocalActions ?body-parts locals]
        [#:when tag
                [#:in-hole ?body-parts
                           [#:walk (list tag) 'tag-module-begin]]]