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

[Keisuke Nishida]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Keisuke Nishida <address@hidden>        01/07/31 07:08:04

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

Log message:
        * boot-9.scm (process-define-module): Bug fixed.

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

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.466 
guile/guile-core/ice-9/ChangeLog:1.467
--- guile/guile-core/ice-9/ChangeLog:1.466      Mon Jul 23 15:10:00 2001
+++ guile/guile-core/ice-9/ChangeLog    Tue Jul 31 07:08:04 2001
@@ -1,3 +1,7 @@
+2001-07-31  Keisuke Nishida  <address@hidden>
+
+       * boot-9.scm (process-define-module): Bug fixed.
+
 2001-07-24  Marius Vollmer  <address@hidden>
 
        * syncase.scm (psyncomp): Removed, it is now in
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)