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

svn: r5698

original commit: a1bc72225989eb0caba4de63246a1e6c4537ea35
This commit is contained in:
Ryan Culpepper 2007-02-27 21:14:37 +00:00
parent a7a18146d8
commit a7a568ad42

View File

@ -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)))))]