~ chicken-core (chicken-5) 59312df3fec1086b4a2469ac45ef4cd240153f9e

commit 59312df3fec1086b4a2469ac45ef4cd240153f9e
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon May 3 13:37:52 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon May 3 13:37:52 2010 +0200

    incorrect fix

diff --git a/expand.scm b/expand.scm
index bab106b5..07e07b25 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1495,10 +1495,10 @@
 	 exps)
 	(set-module-export-list! 
 	 mod
-	 (append 
-	  (let ((xl (module-export-list mod)))
-	    (if (eq? xl #t) '() xl))
-	  (map ##sys#strip-syntax exps))))
+	 (let ((xl (module-export-list mod)))
+	   (if (eq? xl #t) 
+	       #t
+	       (map ##sys#strip-syntax exps)))))
       '(##core#undefined)))))