~ chicken-core (chicken-5) 258488f4f9706cae9822a05df0d39112f1175269

commit 258488f4f9706cae9822a05df0d39112f1175269
Author:     felix <bunny351@gmail.com>
AuthorDate: Mon May 3 13:07:14 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Mon May 3 13:07:14 2010 +0200

    reexport didn't handle '*' export lists

diff --git a/expand.scm b/expand.scm
index 6dbc5a00..2f50d18d 100644
--- a/expand.scm
+++ b/expand.scm
@@ -981,7 +981,8 @@
 	     (set-module-export-list! 
 	      cm
 	      (append 
-	       (module-export-list cm) 
+	       (let ((xl (module-export-list cm) ))
+		 (if (eq? #t xl) '() xl))
 	       (map car vsv)
 	       (map car vss)))
 	     (when (pair? prims)