diff options
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)) |