From b95b1b835e932116b9b771e8de933afaaa1e0d9d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Sep 2008 00:42:39 -0700 Subject: [PATCH] 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. --- ice-9/boot-9.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index f1aedc277..88f80b40d 100644 --- 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) +(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 %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) - ;; (define-special-value '(%app modules new-ws) (lambda () (make-scm-module))) (define (try-load-module name)