~ chicken-core (chicken-5) b13bda51bd643c31781dd78482345314b5e1aa37

commit b13bda51bd643c31781dd78482345314b5e1aa37
Author:     zbigniew <zbigniewsz@gmail.com>
AuthorDate: Thu Jan 7 12:52:00 2010 -0600
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 8 15:54:44 2010 +0100

    Hopefully fix unquote-splicing for real

diff --git a/expand.scm b/expand.scm
index 91c56f6a..976a62a4 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1170,7 +1170,7 @@
 				(if (eq? n 0)
 				    `(##sys#append ,htx
 						   ,(walk tail n) )
-				    `(##sys#cons (##sys#list ,%unquote-splicing
+				    `(##sys#cons (##sys#list (,%quote ,%unquote-splicing)
 							     ,(walk htx (fx- n 1)) )
 						 ,(walk tail n) ) ) )
 			      `(##sys#cons ,(walk head n) ,(walk tail n)) ) ) )