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

* boot-9.scm (make-autoload-interface): Set init value for uses to

Browse source 
'() instead of #f.
(make-modules-in): Name modules with their real (= full) names.
(the-root-module, the-scm-module): Named `(guile)' instead of
`the-root-module'.
(the-scm-module): Set kind to 'interface.
This commit is contained in:
Mikael Djurfeldt 2000-06-11 18:29:57 +00:00
parent baf06dbf68
commit d5504515e3
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1689,8 +1689,9 @@
(define the-root-module (make-root-module))
(define the-scm-module (make-scm-module))
(set-module-public-interface! the-root-module the-scm-module)
(set-module-name! the-root-module 'the-root-module)
(set-module-name! the-scm-module 'the-scm-module)
(set-module-name! the-root-module '(guile))
(set-module-name! the-scm-module '(guile))
(set-module-kind! the-scm-module 'interface)
(for-each set-system-module! (list the-root-module the-scm-module) '(#t #t))
(set-current-module the-root-module)
@ -1750,7 +1751,9 @@
=> (lambda (m) (make-modules-in m (cdr name))))
(else (let ((m (make-module 31)))
(set-module-kind! m 'directory)
(set-module-name! m (car name))
(set-module-name! m (append (or (module-name module)
'())
(list (car name))))
(module-define! module (car name) m)
(make-modules-in m (cdr name)))))))
@ -1828,7 +1831,7 @@
;; Replace autoload-interface with interface
(set-car! (memq a (module-uses module)) i)
(module-local-variable i sym))))))
(module-constructor #() #f b #f #f name 'autoload
(module-constructor #() '() b #f #f name 'autoload
'() (make-weak-value-hash-table 31) 0)))