load modules from within a known environment

* module/ice-9/boot-9.scm (try-module-autoload): Init the module
  excursion with a fresh user module.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 8d04323..450a6e4 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2598,6 +2598,9 @@ module '(ice-9 q) '(make-q q-length))}."
               (with-fluids ((current-reader #f))
                 (save-module-excursion
                  (lambda () 
+                   ;; The initial environment when loading a module is a fresh
+                   ;; user module.
+                   (set-current-module (make-fresh-user-module))
                    (if version
                        (load (find-versioned-module
                               dir-hint name version %load-path))