~ chicken-core (chicken-5) 47f6888973fa487bf5e05d9852858ca83f28dc3a

commit 47f6888973fa487bf5e05d9852858ca83f28dc3a
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Tue Mar 15 21:55:28 2011 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Tue Mar 15 21:55:28 2011 +0100

    Make unquote-splicing test less strict; append is allowed to append a list to a nonlist according to Felix. All tests should now work again

diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 132a1ed2..a30c5104 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -824,7 +824,7 @@
 (t '(unquote-splicing a) (quasiquote (unquote-splicing a)))
 (t '(1 2) (let ((a (list 2))) (quasiquote (1 (unquote-splicing a)))))
 (f (eval '(let ((a 1))                  ; a is not a list
-            (quasiquote (1 (unquote-splicing a))))))
+            (quasiquote (1 (unquote-splicing a) 2)))))
 (f (eval '(let ((a (list 1))
                 (b (list 2)))
             (quasiquote (1 (unquote-splicing a b)))))) ; > 1 arg