diff options
| author | David Robillard <d@drobilla.net> | 2012-12-25 20:14:15 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-25 20:14:15 +0000 |
| commit | 32e3bdba4abbd63d7f2a1def7f7000b75c5165fe (patch) | |
| tree | 1a83776a4673c3c620ed37d890fa17b56d013640 /test | |
| parent | 77d27b3495bfa98c5e13707903e4f885e8521ab6 (diff) | |
| download | resp-32e3bdba4abbd63d7f2a1def7f7000b75c5165fe.tar.gz resp-32e3bdba4abbd63d7f2a1def7f7000b75c5165fe.tar.bz2 resp-32e3bdba4abbd63d7f2a1def7f7000b75c5165fe.zip | |
Implement ellipses as in R*RS.
Let macro is now the one from R7RS, but missing the second clause (no letrec yet).
git-svn-id: http://svn.drobilla.net/resp/trunk@446 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'test')
| -rw-r--r-- | test/let.scm | 4 | ||||
| -rw-r--r-- | test/mac.scm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/test/let.scm b/test/let.scm index 3fb57a7..cc4e4c4 100644 --- a/test/let.scm +++ b/test/let.scm @@ -1,7 +1,7 @@ (define-syntax let (syntax-rules () - ((let ((name val) ...) body1 ...) - ((lambda (name ...) body1 ...) + ((let ((name val) ...) body1 body2 ...) + ((lambda (name ...) body1 body2 ...) val ...)))) (define inc diff --git a/test/mac.scm b/test/mac.scm index d5df7f3..cdf3e14 100644 --- a/test/mac.scm +++ b/test/mac.scm @@ -5,4 +5,4 @@ ((and test1 test2 ...) (if test1 (and test2 ...) #f)))) -(and (= 1 1) (= 2 2) #t #t (= 1 4)) +(and (= 1 1) (= 2 2) (= 3 3) (= 42 24)) |