From 05616098de75110d96088c3f7deed65850566d38 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 25 Aug 2001 16:10:33 +0000 Subject: [PATCH] (resolve-interface): Get variables from the public interface of a module instead of from the module itselfs. --- ice-9/boot-9.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index d1ac9a7f1..04642fe14 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1712,11 +1712,11 @@ (orig (if direct? bspec (car bspec))) (seen (if direct? bspec (cdr bspec)))) (module-add! custom-i (renamer seen) - (or (module-local-variable module orig) + (or (module-local-variable public-i orig) (error ;; fixme: format manually for now (simple-format - #f "no binding `~A' in module ~A" + #f "no binding `~A' exported from module ~A" orig name)))))) selection) custom-i))))