From 9fb6db9c14fba40f00be43a792f2e2931d96b805 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 original commit: 9a2408f2674d138657b256ad110a5c1987634b4a --- 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 06171a9..46efb52 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]]]