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

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Marius Vollmer <address@hidden> 01/08/25 09:10:33

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&only_with_tag=branch_release-1-6&tr1=1.266.2.2&tr2=1.266.2.3&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.268 
guile/guile-core/ice-9/boot-9.scm:1.269
--- guile/guile-core/ice-9/boot-9.scm:1.268     Thu Jul 12 16:26:52 2001
+++ guile/guile-core/ice-9/boot-9.scm   Tue Jul 31 07:08:04 2001
@@ -1747,14 +1747,14 @@
                 (unrecognized kws))
             (let* ((interface-args (cadr kws))
                    (interface (apply resolve-interface interface-args)))
-              (and (eq? (car kws) 'use-syntax)
-                   (or (symbol? (car spec))
+              (and (eq? (car kws) #:use-syntax)
+                   (or (symbol? (caar interface-args))
                        (error "invalid module name for use-syntax"
-                              spec))
+                              (car interface-args)))
                    (set-module-transformer!
                     module
-                    (module-ref interface (car 
-                                           (last-pair (car interface-args)))
+                    (module-ref interface
+                                (car (last-pair (car interface-args)))
                                 #f)))
               (loop (cddr kws)
                     (cons interface reversed-interfaces)