From 51b22dbb48b51303e0a2f8d3fa2b87e703736feb Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 23 Apr 2010 15:34:22 +0200 Subject: [PATCH] tweak to resolve-module * 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. --- module/ice-9/boot-9.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 6a36ea4a0..9f9a9d391 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -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)