mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-14 17:50:22 +02:00
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.
This commit is contained in:
parent
73dea589ca
commit
b95b1b835e
1 changed files with 6 additions and 5 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue