~ chicken-core (chicken-5) 0dc9bf00458d1bcefd6cc953e89991dccb3b6ff0

commit 0dc9bf00458d1bcefd6cc953e89991dccb3b6ff0
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Apr 25 21:58:44 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Apr 25 21:58:44 2011 +0200

    export syntax used hidden module accessor

diff --git a/expand.scm b/expand.scm
index 968709ad..150445df 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1388,11 +1388,7 @@
 	    'export))
 	  (mod (##sys#current-module)))
       (when mod
-	(set-module-export-list! 
-	 mod
-	 (let ((xl (module-export-list mod)))
-	   (or (eq? xl #t) 		; ==> #t
-	       (append xl exps)))))
+	(##sys#add-to-export-list mod exps))
       '(##core#undefined)))))
 
 
diff --git a/modules.scm b/modules.scm
index 3c190e77..2208c35d 100644
--- a/modules.scm
+++ b/modules.scm
@@ -141,6 +141,13 @@
 	    (##sys#macro-environment (cdr saved))
 	    (##sys#current-module mod)))))))
 
+(define (##sys#add-to-export-list mod exps)
+  (set-module-export-list! 
+   mod
+   (let ((xl (module-export-list mod)))
+     (or (eq? xl #t) 		; ==> #t
+	 (append xl exps)))))
+
 (define (##sys#toplevel-definition-hook sym mod exp val) #f)
 
 (define (##sys#register-meta-expression exp)