~ chicken-core (chicken-5) 3095a8700d0bda4c6a145c70ca5ae1ced6023389

commit 3095a8700d0bda4c6a145c70ca5ae1ced6023389
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: Mon Jun 28 22:00:04 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)))
 						      '())))))