From a7a568ad4202041855023a437cc005534c30d88f Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 27 Feb 2007 21:14:37 +0000 Subject: [PATCH] Macro stepper: fixed bug in reductions wrt internal define-syntax svn: r5698 original commit: a1bc72225989eb0caba4de63246a1e6c4537ea35 --- collects/macro-debugger/model/reductions.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss index 99063a8..f4dd14c 100644 --- a/collects/macro-debugger/model/reductions.ss +++ b/collects/macro-debugger/model/reductions.ss @@ -385,7 +385,7 @@ estx estx)))]) (loop next (stx-cdr suffix) (cons estx2 prefix) (with-context (lambda (x) (revappend prefix (cons x (stx-cdr suffix)))) - (cons (with-context (CC (?ds ?vars ?rhs) estx ?rhs) + (cons (with-context (CC ?rhs estx (?ds ?vars ?rhs)) (reductions rhs)) (cons (reductions head) rss)))))]