~ chicken-r7rs (master) dc9be8a6016d18df50bfd425cb9fada519038726

commit dc9be8a6016d18df50bfd425cb9fada519038726
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Oct 24 22:45:51 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Oct 24 22:45:51 2013 +0000

    Whoops, cond-expand is er, rename begin

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