From 9a2408f2674d138657b256ad110a5c1987634b4a Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 15 Jan 2010 20:13:09 +0000 Subject: [PATCH] macro-debugger: fixed module & local-expansion bug svn: r17666 --- 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 06171a9dc9..46efb526e6 100644 --- 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]]]