mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-03 18:50:19 +02:00
Code Activity

(resolve-interface): When returning a custom

Browse source 
interface, also consult source module's entire binding set,
not just its exported bindings, before throwing error.
This commit is contained in:
Thien-Thi Nguyen 2001-08-30 23:30:12 +00:00
parent df1cc476e4
commit f9da74b0f6
1 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/boot-9.scm
View file

@ -1713,10 +1713,11 @@
(seen (if direct? bspec (cdr bspec)))) (seen (if direct? bspec (cdr bspec))))
(module-add! custom-i (renamer seen) (module-add! custom-i (renamer seen)
(or (module-local-variable public-i orig) (or (module-local-variable public-i orig)
(module-local-variable module orig)
(error (error
;; fixme: format manually for now ;; fixme: format manually for now
(simple-format (simple-format
#f "no binding `~A' exported from module ~A" #f "no binding `~A' in module ~A"
orig name)))))) orig name))))))
selection) selection)
custom-i)))) custom-i))))