Merge fix from Chibi scheme

"Identifiers in the template should only match pattern variables from the same expansion step."
This commit is contained in:
Justin Ethier 2016-08-31 23:39:53 -04:00
parent 2e5a4adcd2
commit 1241f71e80

View file

@ -1357,7 +1357,7 @@
(cond (cond
((identifier? t) ((identifier? t)
(cond (cond
((find (lambda (v) (compare t (car v))) vars) ((find (lambda (v) (eq? t (car v))) vars)
=> (lambda (cell) => (lambda (cell)
(if (<= (cdr cell) dim) (if (<= (cdr cell) dim)
t t