~ chicken-core (chicken-5) a5af46bd1ca1849f5c75ed14b4bb3ac34d2ea888

commit a5af46bd1ca1849f5c75ed14b4bb3ac34d2ea888
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon May 3 13:34:22 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon May 3 13:34:22 2010 +0200

    export didn't handle '*' export list

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