~ chicken-core (chicken-5) 8c683403a318abc718efe9b5fc05aae98a18dac6

commit 8c683403a318abc718efe9b5fc05aae98a18dac6
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Sep 26 08:37:41 2015 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Sep 26 08:37:41 2015 +0200

    Initialize saved-environments list for compiled modules

diff --git a/modules.scm b/modules.scm
index d8476078..6ea56dfa 100644
--- a/modules.scm
+++ b/modules.scm
@@ -386,6 +386,10 @@
      (lambda (nexp)
        (set-car! (cdr nexp) (merge-se (or (cadr nexp) '()) senv)))
      nexps)
+    (set-module-saved-environments!
+     mod
+     (cons (merge-se (##sys#current-environment) vexports sexps)
+	   (##sys#macro-environment)))
     (set! ##sys#module-table (cons (cons name mod) ##sys#module-table)) 
     mod))