add close-syntax

2014-07-17 16:47:50 +09:00 · 2014-07-17 16:47:50 +09:00 · f66bea4e97
parent 690bdcb83d
commit f66bea4e97
1 changed files with 6 additions and 1 deletions
--- a/piclib/prelude.scm
+++ b/piclib/prelude.scm
@ -92,6 +92,9 @@
                     (dictionary-set! cache atom id)
                     id)))))))

+  (define (close-syntax form env)
+    (make-syntactic-closure form '() env))
+
  (define (sc-macro-transformer f)
    (lambda (expr use-env mac-env)
      (make-syntactic-closure mac-env '() (f expr use-env))))
@ -174,7 +177,9 @@

      (unwrap (f (wrap expr) inject compare))))

-  (export sc-macro-transformer
+  (export make-syntactic-closure
+          close-syntax
+          sc-macro-transformer
          rsc-macro-transformer
          er-macro-transformer
          ir-macro-transformer))