From 32e3bdba4abbd63d7f2a1def7f7000b75c5165fe Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Tue, 25 Dec 2012 20:14:15 +0000
Subject: 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
---
 test/let.scm | 4 ++--
 test/mac.scm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'test')

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))
-- 
cgit v1.2.1