mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

(resolve-interface): Get variables from the public interface of a

Browse source 
module instead of from the module itselfs.
This commit is contained in:
Marius Vollmer 2001-08-25 16:10:33 +00:00
parent 118b24260c
commit 05616098de
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1712,11 +1712,11 @@
(orig (if direct? bspec (car bspec))) (orig (if direct? bspec (car bspec)))
(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 module orig) (or (module-local-variable public-i orig)
(error (error
;; fixme: format manually for now ;; fixme: format manually for now
(simple-format (simple-format
#f "no binding `~A' in module ~A" #f "no binding `~A' exported from module ~A"
orig name)))))) orig name))))))
selection) selection)
custom-i)))) custom-i))))