init

.gitignore

@@ -0,0 +1,7 @@
+*.so
+*.o
+*.link
+*.build.sh
+*.install.sh
+*.import.scm
+#*

README.md

@@ -0,0 +1,3 @@
+# define-macro
+
+Lisp-style macros for Chicken Scheme.

define-macro.egg

@@ -0,0 +1,7 @@
+;; -*- scheme -*-
+((author "Mistivia")
+ (synopsis "Lisp-style macro")
+ (license "BSD")
+ (category lang-exts)
+ (test-dependencies test)
+ (components (extension define-macro)))

define-macro.scm

@@ -0,0 +1,16 @@
+(module define-macro (define-macro)
+  (import scheme
+          (chicken base)
+          (chicken syntax))
+  
+  (define-syntax define-macro
+    (er-macro-transformer
+     (lambda (exp r c)
+       (let ((def (cadr exp))
+             (body (cddr exp)))
+         `(define-syntax ,(car def)
+            (er-macro-transformer
+             (lambda (e2 r2 c2)
+               (define (transform-func ,@(cdr def))
+                 ,@body)
+               (apply transform-func (cdr e2))))))))))

tests/run.scm

@@ -0,0 +1,15 @@
+(import test)
+(import define-macro)
+
+(test-group "anwser of the universe"
+  (define-macro (answer x)
+    `(define ,x 42))
+  (answer a)
+  (test-assert (= a 42)))
+
+(test-group "test-gensym"
+  (define a 42)
+  (define-macro (mac)
+    (let ((a (gensym)))
+      (define ,a 0)))
+  (test-assert (= a 42)))