reorder module system boot time

* ice-9/boot-9.scm: Postpone module system boot until (%app modules) is
  defined, so that resolve-module will work. This might not actually be
  necessary given the previous tomfoolery in resolve-module, but it
  doesn't seem like a bad change.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index f1aedc2..88f80b4 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1859,16 +1859,17 @@
 (define module-export! #f)
 (define default-duplicate-binding-procedures #f)
 
-;; This boots the module system.  All bindings needed by modules.c
-;; must have been defined by now.
-;;
-(set-current-module the-root-module)
-
 (define %app (make-module 31))
 (define app %app) ;; for backwards compatability
+
 (local-define '(%app modules) (make-module 31))
 (local-define '(%app modules guile) the-root-module)
 
+;; This boots the module system.  All bindings needed by modules.c
+;; must have been defined by now.
+;;
+(set-current-module the-root-module)
+
 ;; (define-special-value '(%app modules new-ws) (lambda () (make-scm-module)))
 
 (define (try-load-module name)