~ chicken-r7rs (master) 8f2820f79ee8f6ef9d8d5487c4ce7438ccdf0abe

commit 8f2820f79ee8f6ef9d8d5487c4ce7438ccdf0abe
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Oct 24 22:14:36 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Oct 24 22:14:36 2013 +0000

    cond-expand's matching clause should expand to a begin

diff --git a/scheme.base.scm b/scheme.base.scm
index 6f78058..e07fd01 100644
--- a/scheme.base.scm
+++ b/scheme.base.scm
@@ -36,7 +36,7 @@
 (define-syntax cond-expand
   (er-macro-transformer
    (lambda (x r c)
-     (process-cond-expand (cdr x)))))
+     (cons 'begin (process-cond-expand (cdr x))))))
 
 
 ;;;