mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

(make-autoload-interface): Use a proper hashtable as

Browse source 
the obarray, not an empty vector.
(make-module): Always construct a hashtable for the obarray, even
for empty ones.
This commit is contained in:
Marius Vollmer 2003-09-12 15:16:42 +00:00
parent 8da867bfc6
commit eb84efa171
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -975,8 +975,7 @@
(error (error
"Lazy-binder expected to be a procedure or #f." binder)) "Lazy-binder expected to be a procedure or #f." binder))
(let ((module (module-constructor (and (not (zero? size)) (let ((module (module-constructor (make-hash-table size)
(make-hash-table size))
uses binder #f #f #f #f #f #f uses binder #f #f #f #f #f #f
'() '()
(make-weak-value-hash-table 31) (make-weak-value-hash-table 31)
@ -1878,7 +1877,7 @@
;; Replace autoload-interface with interface ;; Replace autoload-interface with interface
(set-car! (memq a (module-uses module)) i) (set-car! (memq a (module-uses module)) i)
(module-local-variable i sym)))))) (module-local-variable i sym))))))
(module-constructor '#() '() b #f #f name 'autoload #f #f (module-constructor (make-hash-table 0) '() b #f #f name 'autoload #f #f
'() (make-weak-value-hash-table 31) 0))) '() (make-weak-value-hash-table 31) 0)))
;;; {Compiled module} ;;; {Compiled module}