From bf757dcc9b66ebb3bf7e2df8e8c7d3a011ddd6dc Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Tue, 25 Dec 2012 00:09:34 +0000
Subject: Preliminary syntax-rules macro implementation.

git-svn-id: http://svn.drobilla.net/resp/trunk@443 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 test/mac.scm | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 test/mac.scm

(limited to 'test/mac.scm')

diff --git a/test/mac.scm b/test/mac.scm
new file mode 100644
index 0000000..d5df7f3
--- /dev/null
+++ b/test/mac.scm
@@ -0,0 +1,8 @@
+(define-syntax and
+  (syntax-rules ()
+    ((and) #t)
+    ((and test) test)
+    ((and test1 test2 ...)
+     (if test1 (and test2 ...) #f))))
+
+(and (= 1 1) (= 2 2) #t #t (= 1 4))
-- 
cgit v1.2.1