~ chicken-core (chicken-5) a7c6952ce77ba50b1a4c3bb060f29d34e6d1c0cc

commit a7c6952ce77ba50b1a4c3bb060f29d34e6d1c0cc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun May 16 01:59:40 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun May 16 02:00:41 2010 +0200

    mean bug in export: would kill previously defined exports

diff --git a/expand.scm b/expand.scm
index 1dc1e934..6c4693a4 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1221,7 +1221,7 @@
 		     (expand rclauses #t)
 		     `(##core#begin ,@(cdr clause)))
 		    (else?
-		     (##sys#notice
+		     (##sys#warn
 		      "non-`else' clause following `else' clause in `cond'"
 		      (##sys#strip-syntax clause))
 		     (expand rclauses #t)
@@ -1513,7 +1513,7 @@
 	 (let ((xl (module-export-list mod)))
 	   (if (eq? xl #t) 
 	       #t
-	       (map ##sys#strip-syntax exps)))))
+	       (append xl (map ##sys#strip-syntax exps))))))
       '(##core#undefined)))))