From 3cf3fe7ed9f19af2f02fea7846d2000a7781efcb Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 8 May 2007 21:22:55 +0000 Subject: [PATCH] Macro stepper: bug in match clause svn: r6183 --- collects/macro-debugger/model/hide.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/macro-debugger/model/hide.ss b/collects/macro-debugger/model/hide.ss index 9b75fa9791..a8a2f87ac0 100644 --- a/collects/macro-debugger/model/hide.ss +++ b/collects/macro-debugger/model/hide.ss @@ -692,13 +692,12 @@ ;; Macros - [(AnyQ mrule (e1 e2 (? transformation? tx) next)) + [(AnyQ mrule (e1 e2 (? error-wrap? ew) next)) + (list (make-s:subterm #f ew))] + [(AnyQ mrule (e1 e2 tx next)) (recv [(subterms table) (for-transformation tx)] (parameterize ((subterms-table table)) (append subterms (for-deriv next))))] - [(AnyQ mrule (e1 e2 (and ew (struct error-wrap (_ _ _))) next)) - (list (make-s:subterm #f ew))] - [(AnyQ lift-deriv (e1 e2 first lifted-stx next)) #;(printf "encountered lift-deriv in seek mode!~n")