conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add close-syntax

This commit is contained in:
Yuichi Nishiwaki 2014-07-17 16:47:50 +09:00
parent 690bdcb83d
commit f66bea4e97
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
piclib/prelude.scm
View File

@ -92,6 +92,9 @@
(dictionary-set! cache atom id) (dictionary-set! cache atom id)
id))))))) id)))))))
(define (close-syntax form env)
(make-syntactic-closure form '() env))
(define (sc-macro-transformer f) (define (sc-macro-transformer f)
(lambda (expr use-env mac-env) (lambda (expr use-env mac-env)
(make-syntactic-closure mac-env '() (f expr use-env)))) (make-syntactic-closure mac-env '() (f expr use-env))))
@ -174,7 +177,9 @@
(unwrap (f (wrap expr) inject compare)))) (unwrap (f (wrap expr) inject compare))))
(export sc-macro-transformer (export make-syntactic-closure
close-syntax
sc-macro-transformer
rsc-macro-transformer rsc-macro-transformer
er-macro-transformer er-macro-transformer
ir-macro-transformer)) ir-macro-transformer))