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

add sc-macro-transformer/rsc-maro-transformer

This commit is contained in:
Yuichi Nishiwaki 2013-11-27 17:25:42 +09:00
parent 1ab588d21f
commit 7b026fbd0a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
piclib/built-in.scm
View File

@ -177,6 +177,16 @@
(single-for-each f list) (single-for-each f list)
(multiple-for-each f (cons list lists)))) (multiple-for-each f (cons list lists))))
(define sc-macro-transformer
(lambda (f)
(lambda (expr use-env mac-env)
(make-syntactic-closure mac-env '() (f expr use-env)))))
(define rsc-macro-transformer
(lambda (f)
(lambda (expr use-env mac-env)
(make-syntactic-closure use-env '() (f expr mac-env)))))
(define-macro (let bindings . body) (define-macro (let bindings . body)
(if (symbol? bindings) (if (symbol? bindings)
(begin (begin