www

commit 9fb6db9c14fba40f00be43a792f2e2931d96b805
parent 34c1af4bd56fec38599408321455cc9d0c655077
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 15 Jan 2010 20:13:09 +0000

macro-debugger: fixed module & local-expansion bug

svn: r17666

original commit: 9a2408f2674d138657b256ad110a5c1987634b4a

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
@@ -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]]]