From 8a1d0685190a93fc182a4fcb21ad835faba7ea3c Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 19 Jul 2014 11:20:54 +0900 Subject: [PATCH] fix many bugs around sc --- piclib/prelude.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/piclib/prelude.scm b/piclib/prelude.scm index 3b84c974..abc54dc2 100644 --- a/piclib/prelude.scm +++ b/piclib/prelude.scm @@ -77,7 +77,7 @@ (vector-map proc expr) (proc expr))))) - (define (make-syntactic-closure form free env) + (define (make-syntactic-closure env free form) (define cache (make-dictionary)) (walk (lambda (atom) @@ -90,10 +90,11 @@ (begin (define id (make-identifier atom env)) (dictionary-set! cache atom id) - id))))))) + id))))) + form)) (define (close-syntax form env) - (make-syntactic-closure form '() env)) + (make-syntactic-closure env '() form)) (define (sc-macro-transformer f) (lambda (expr use-env mac-env)