Merge pull request #348 from wtokuno/patch-1

Fix make-syntactic-closure
This commit is contained in:
Yuichi Nishiwaki 2016-09-12 16:30:22 +02:00 committed by GitHub
commit a639e8f562
1 changed files with 1 additions and 1 deletions

View File

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