a failed resolve-interface does not leave behind an empty module

* module/ice-9/boot-9.scm (resolve-interface): Pass #:ensure #f to
  resolve-module, so that in the case of module-not-found we don't leave
  behind an empty module without an interface.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 902f474..5af1ebe 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2348,7 +2348,7 @@ If there is no handler at all, Guile prints an error and then exits."
                                          (symbol-prefix-proc prefix)
                                          identity))
                             version)
-  (let* ((module (resolve-module name #t version))
+  (let* ((module (resolve-module name #t version #:ensure #f))
          (public-i (and module (module-public-interface module))))
     (and (or (not module) (not public-i))
          (error "no code for module" name))