From 7b026fbd0a5254f8b6208811291dd17024e3d084 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 27 Nov 2013 17:25:42 +0900
Subject: [PATCH] add sc-macro-transformer/rsc-maro-transformer

---
 piclib/built-in.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index 23392f82..f31b1b57 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -177,6 +177,16 @@
       (single-for-each f list)
       (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)
   (if (symbol? bindings)
       (begin