~ chicken-core (chicken-5) 03934486747ea87d36bb0c7844a93448f63d375d

commit 03934486747ea87d36bb0c7844a93448f63d375d
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 17:44:10 2009 +0100

    cond-expand should strip f-ids (reported by Thomas Bushnell)
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

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))