~ chicken-core (chicken-5) bd6d65020824f1c1e50e1a9ab55e23a1fcc85855

commit bd6d65020824f1c1e50e1a9ab55e23a1fcc85855
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 20 21:20:57 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Mar 20 21:20:57 2011 +0100

    allow empty list for exports

diff --git a/modules.scm b/modules.scm
index c337a895..6171f0a6 100644
--- a/modules.scm
+++ b/modules.scm
@@ -702,7 +702,7 @@
   (define (err . args)
     (apply ##sys#syntax-error-hook loc args))
   (cond ((eq? '* exps) exps)
-	((not (pair? exps))
+	((not (list? exps))
 	 (err "invalid exports" exps))
 	(else
 	 (let loop ((xps exps))