diff options
| author | David Robillard <d@drobilla.net> | 2012-12-25 00:09:34 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-25 00:09:34 +0000 |
| commit | bf757dcc9b66ebb3bf7e2df8e8c7d3a011ddd6dc (patch) | |
| tree | 0d49ea2dced45c2535b7050ebd7deefc19bd27ac /test | |
| parent | 67319bf0410196787c753225f46057bc7c94beec (diff) | |
| download | resp-bf757dcc9b66ebb3bf7e2df8e8c7d3a011ddd6dc.tar.gz resp-bf757dcc9b66ebb3bf7e2df8e8c7d3a011ddd6dc.tar.bz2 resp-bf757dcc9b66ebb3bf7e2df8e8c7d3a011ddd6dc.zip | |
Preliminary syntax-rules macro implementation.
git-svn-id: http://svn.drobilla.net/resp/trunk@443 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'test')
| -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)) |