From eb84efa17104d5c3d7636e33524fbefa9e65bf05 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 12 Sep 2003 15:16:42 +0000 Subject: [PATCH] (make-autoload-interface): Use a proper hashtable as the obarray, not an empty vector. (make-module): Always construct a hashtable for the obarray, even for empty ones. --- ice-9/boot-9.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index afdaec18d..e3620e038 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -975,8 +975,7 @@ (error "Lazy-binder expected to be a procedure or #f." binder)) - (let ((module (module-constructor (and (not (zero? size)) - (make-hash-table size)) + (let ((module (module-constructor (make-hash-table size) uses binder #f #f #f #f #f #f '() (make-weak-value-hash-table 31) @@ -1878,7 +1877,7 @@ ;; Replace autoload-interface with interface (set-car! (memq a (module-uses module)) i) (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))) ;;; {Compiled module}