Merge pull request #348 from wtokuno/patch-1

Fix make-syntactic-closure
2016-09-12 16:30:22 +02:00 · 2016-09-12 16:30:22 +02:00 · a639e8f562
parent 2a279f9d2e a3c4dd32f8
commit a639e8f562
1 changed files with 1 additions and 1 deletions
--- a/contrib/10.macro/macro.scm
+++ b/contrib/10.macro/macro.scm
@ -62,7 +62,7 @@
          ((f (lambda (var)
                (let loop ((free free))
                  (if (null? free)
-                      (wrap free)
+                      (wrap var)
                      (if (identifier=? var (car free))
                          var
                          (loop (cdr free))))))))