resolve-module / scm_resolve_module

[Dirk Herrmann]

Hello Marius,

I am about to submit the following patch. With this patch, 
scm_resolve_module will work, independent of what the current module is: 
The module lookup will always start at the root module. Could you please 
verify that this patch is alright and does not break anything?

Thanks,
Dirk


RCS file: /cvsroot/guile/guile/guile-core/ice-9/boot-9.scm,v
retrieving revision 1.330
diff -u -b -r1.330 boot-9.scm
--- ice-9/boot-9.scm    18 Feb 2004 22:29:45 -0000      1.330
+++ ice-9/boot-9.scm    30 Apr 2004 20:15:55 -0000
@@ -1727,7 +1727,7 @@
;;
(define (resolve-module name . maybe-autoload)
  (let ((full-name (append '(app modules) name)))
-    (let ((already (local-ref full-name)))
+    (let ((already (nested-ref the-root-module full-name)))
      (if already
         ;; The module already exists...
         (if (and (or (null? maybe-autoload) (car maybe-autoload))