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

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

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2010-06-11 12:55:44 +02:00
parent befd1df991
commit 47aabe86ca
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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))