[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-70-g3939299

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=393929957d9c2db998824e52c0a100b53ac64fe4

The branch, master has been updated
       via  393929957d9c2db998824e52c0a100b53ac64fe4 (commit)
      from  225dbf6fd496dbf09842fefaa500c2684eb119d9 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 393929957d9c2db998824e52c0a100b53ac64fe4
Author: Andy Wingo <address@hidden>
Date:   Wed Jun 16 09:38:36 2010 +0200

    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.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/boot-9.scm |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 8d04323..450a6e4 100644
--- 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))


hooks/post-receive
-- 
GNU Guile