diff options
Diffstat (limited to 'test/mac.scm')
-rw-r--r-- | test/mac.scm | 8 |
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)) |