www

commit a7a568ad4202041855023a437cc005534c30d88f
parent a7a18146d8bd9f13f0d212c0c69e3b6cd62e2d32
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 27 Feb 2007 21:14:37 +0000

Macro stepper: fixed bug in reductions wrt internal define-syntax

svn: r5698

original commit: a1bc72225989eb0caba4de63246a1e6c4537ea35

Diffstat:
M
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
@@ -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)))))]