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
((identifier? t)
(cond
((find (lambda (v) (compare t (car v))) vars)
((find (lambda (v) (eq? t (car v))) vars)
=> (lambda (cell)
(if (<= (cdr cell) dim)
t