mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 02:00:22 +02:00
Code Activity

reorder module system boot time

Browse source 
* 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:
Andy Wingo 2008-09-02 00:42:39 -07:00
parent 73dea589ca
commit b95b1b835e
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/boot-9.scm
View file

@ -1859,16 +1859,17 @@
(define module-export! #f) (define module-export! #f)
(define default-duplicate-binding-procedures #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 ;; This boots the module system. All bindings needed by modules.c
;; must have been defined by now. ;; must have been defined by now.
;; ;;
(set-current-module the-root-module) (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-special-value '(%app modules new-ws) (lambda () (make-scm-module)))
(define (try-load-module name) (define (try-load-module name)