~ chicken-core (chicken-5) 63c8ba3f5dd2211513b9712ce82418b73faff0be

commit 63c8ba3f5dd2211513b9712ce82418b73faff0be
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jun 27 18:40:33 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jun 27 18:40:33 2010 +0200

    strip syntax of keywords in invocation of ##sys#get-keyword in extended llist-expansion

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