~ chicken-core (chicken-5) b5472d45310ebb1838d6b2b0534bcf31d5857a8a

commit b5472d45310ebb1838d6b2b0534bcf31d5857a8a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 2 21:34:20 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 2 21:34:20 2012 +0100

    assert: only add form as argument to error if no message is given

diff --git a/chicken-syntax.scm b/chicken-syntax.scm
index 8fd85a30..baf20180 100644
--- a/chicken-syntax.scm
+++ b/chicken-syntax.scm
@@ -179,7 +179,7 @@
 		    (##core#undefined)
 		    (##sys#error 
 		     ,msg 
-		     ,@(if (fx> (length msg-and-args) 1)
+		     ,@(if (pair? msg-and-args)
 			   (cdr msg-and-args)
 			   `((##core#quote ,(##sys#strip-syntax exp)))))))))))