Macro stepper: fixed bug in reductions wrt internal define-syntax
svn: r5698 original commit: a1bc72225989eb0caba4de63246a1e6c4537ea35
This commit is contained in:
parent
a7a18146d8
commit
a7a568ad42
|
@ -385,7 +385,7 @@
|
||||||
estx estx)))])
|
estx estx)))])
|
||||||
(loop next (stx-cdr suffix) (cons estx2 prefix)
|
(loop next (stx-cdr suffix) (cons estx2 prefix)
|
||||||
(with-context (lambda (x) (revappend prefix (cons x (stx-cdr suffix))))
|
(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))
|
(reductions rhs))
|
||||||
(cons (reductions head)
|
(cons (reductions head)
|
||||||
rss)))))]
|
rss)))))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user