~ chicken-core (chicken-5) c75cc04a5e6cf570b83ab4df40834583aa5ed369

commit c75cc04a5e6cf570b83ab4df40834583aa5ed369
Author:     Moritz Heidkamp <moritz@twoticketsplease.de>
AuthorDate: Sun Mar 25 16:43:44 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Fri Apr 6 18:10:59 2012 +0200

    Use ##core#quote in ##sys#expand-extended-lambda-list
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/expand.scm b/expand.scm
index feca02a7..401234d6 100644
--- a/expand.scm
+++ b/expand.scm
@@ -359,7 +359,7 @@
 				,(map (lambda (k)
 					(let ([s (car k)])
 					  `(,s (##sys#get-keyword
-						',(->keyword (##sys#strip-syntax s)) ,rvar
+						(##core#quote ,(->keyword (##sys#strip-syntax s))) ,rvar
 						,@(if (pair? (cdr k)) 
 						      `((,%lambda () ,@(cdr k)))
 						      '())))))