~ chicken-core (chicken-5) 3403b3a03402e843d33d0cb9cd3dc88b2540ca79

commit 3403b3a03402e843d33d0cb9cd3dc88b2540ca79
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 01:59:40 2010 +0200

    mean bug in export: would kill previously defined exports

diff --git a/expand.scm b/expand.scm
index d95bd4ae..043a6f3a 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1204,7 +1204,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)
@@ -1496,7 +1496,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)))))