~ chicken-core (chicken-5) 6b9d64e358dbb21f148d875d2ec4a5f0ae692871

commit 6b9d64e358dbb21f148d875d2ec4a5f0ae692871
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 26 03:54:23 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 26 03:54:23 2011 +0200

    primitive modules should be switchable, too

diff --git a/modules.scm b/modules.scm
index 726b4fa0..4e8f2d3d 100644
--- a/modules.scm
+++ b/modules.scm
@@ -394,6 +394,10 @@
 			       se name))
 			  se))
 		    sexports))))
+    (set-module-saved-environments!
+     mod
+     (cons (##sys#current-environment)
+	   (##sys#macro-environment)))
     (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) 
     mod))