~ chicken-r7rs (master) 0831bde68c957fd631fe1aa3579da8db492bfd02

commit 0831bde68c957fd631fe1aa3579da8db492bfd02
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri Jul 26 18:27:58 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jul 26 18:27:58 2013 +0000

    Fix cond-expand library declaration parser to also recur down the rest of the expressions

diff --git a/r7rs-compile-time.scm b/r7rs-compile-time.scm
index 71253b9..1dfa50d 100644
--- a/r7rs-compile-time.scm
+++ b/r7rs-compile-time.scm
@@ -128,7 +128,9 @@
 	      ,@(process-include-decls fnames)
 	      ,(parse-decls more)))
 	   ((('cond-expand decls ...) . more)
-	    (parse-decls (process-cond-expand decls)))
+            `(##core#begin
+              ,(parse-decls (process-cond-expand decls))
+	      ,(parse-decls more)))
 	   ((('begin code ...) . more)
 	    `(##core#begin 
 	      (##core#begin ,@code)