mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +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) (symbol-prefix-proc prefix)
identity)) identity))
version) 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)))) (public-i (and module (module-public-interface module))))
(and (or (not module) (not public-i)) (and (or (not module) (not public-i))
(error "no code for module" name)) (error "no code for module" name))