mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

tweak to resolve-module

Browse source 
* module/ice-9/boot-9.scm (resolve-module): If we found a module but it
  didn't have a public interface and we're not autoloading, just return
  the module directly instead of dispatching to make-modules-in.
This commit is contained in:
Andy Wingo 2010-04-23 15:34:22 +02:00
parent aa26a6d2b1
commit 51b22dbb48
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/boot-9.scm
View file

@ -2360,10 +2360,10 @@ If there is no handler at all, Guile prints an error and then exits."
(try-load-module name version)
(resolve-module name #f))
(else
;; A module is not bound (but maybe something else is),
;; we're not autoloading -- here's the weird semantics,
;; we create an empty module.
(make-modules-in root name)))))))
;; No module found (or if one was, it had no public interface), and
;; we're not autoloading. Here's the weird semantics: we ensure
;; there's an empty module.
(or already (make-modules-in root name))))))))
(define (try-load-module name version)