aboutsummaryrefslogtreecommitdiffstats
path: root/test/mac.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test/mac.scm')
-rw-r--r--test/mac.scm8
1 files changed, 8 insertions, 0 deletions
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))