guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/08/25 09:12:09

Modified files:
        guile-core/ice-9: boot-9.scm 

Log message:
        (resolve-interface): Get variables from the public interface of a
        module instead of from the module itselfs.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.269&tr2=1.270&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.269 
guile/guile-core/ice-9/boot-9.scm:1.270
--- guile/guile-core/ice-9/boot-9.scm:1.269     Tue Jul 31 07:08:04 2001
+++ guile/guile-core/ice-9/boot-9.scm   Sat Aug 25 09:12:09 2001
@@ -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))))