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

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/22 15:45:13

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

Log message:
        (define-module): Return the new module.  (process-define-module): Use
        `spec' instead of `module-name' when getting the syntax transformer.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.251&tr2=1.252&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.251 
guile/guile-core/ice-9/boot-9.scm:1.252
--- guile/guile-core/ice-9/boot-9.scm:1.251     Mon May 21 06:19:40 2001
+++ guile/guile-core/ice-9/boot-9.scm   Tue May 22 15:45:13 2001
@@ -1701,7 +1701,7 @@
                                  spec))
                       (set-module-transformer!
                        module
-                       (module-ref interface (car (last-pair module-name))
+                       (module-ref interface (car (last-pair spec))
                                    #f)))
                  (loop (cddr kws)
                        (cons interface reversed-interfaces)
@@ -2598,7 +2598,9 @@
 (defmacro define-module args
   `(eval-case
     ((load-toplevel)
-     (set-current-module (process-define-module ',args)))
+     (let ((m (process-define-module ',args)))
+       (set-current-module m)
+       m))
     (else
      (error "define-module can only be used at the top level"))))