~ chicken-core (chicken-5) 44c52edc17c6354f7d6bbd8aeacde4286b2ebca0

commit 44c52edc17c6354f7d6bbd8aeacde4286b2ebca0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Nov 23 01:44:47 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Nov 23 01:45:22 2009 +0100

    cond-expand should strip f-ids (reported by Thomas Bushnell)

diff --git a/expand.scm b/expand.scm
index 58eefaea..43c6fd32 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1195,7 +1195,7 @@
 		     x
 		     (cons 'cond-expand clauses)) )
       (define (test fx)
-	(cond ((symbol? fx) (##sys#feature? fx))
+	(cond ((symbol? fx) (##sys#feature? (##sys#strip-syntax fx)))
 	      ((not (pair? fx)) (err fx))
 	      (else
 	       (let ((head (car fx))