Merge pull request #348 from wtokuno/patch-1
Fix make-syntactic-closure
This commit is contained in:
commit
a639e8f562
|
@ -62,7 +62,7 @@
|
||||||
((f (lambda (var)
|
((f (lambda (var)
|
||||||
(let loop ((free free))
|
(let loop ((free free))
|
||||||
(if (null? free)
|
(if (null? free)
|
||||||
(wrap free)
|
(wrap var)
|
||||||
(if (identifier=? var (car free))
|
(if (identifier=? var (car free))
|
||||||
var
|
var
|
||||||
(loop (cdr free))))))))
|
(loop (cdr free))))))))
|
||||||
|
|
Loading…
Reference in New Issue