diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-02-19 16:16:46 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2003-02-19 16:16:46 +0000 |
| commit | 231a4ea849085615dc2d7bd805c8e8025495bfe2 (patch) | |
| tree | 8a06f100bd487c2806608489f6190e03c3656891 /ice-9 | |
| parent | 110beb83a514da75c488448e4118219c2da8df19 (diff) | |
| download | guile-231a4ea849085615dc2d7bd805c8e8025495bfe2.tar.gz | |
* environments.c (DEFAULT_OBARRAY_SIZE): Changed from 137 to 31
(since hash tables now adapt their size).
* modules.c (scm_modules_prehistory): Changed from 2001 to 1533
(current number of prehistory bindings; hashtable code will select
a prime which is greater than this value).
* symbols.c (scm_symbols_prehistory): Changed from 1009 to 2139
(current number of initial symbols).
* properties.c (scm_init_properties): Don't specify size of
scm_properties_whash.
* objprop.c (scm_init_objprop): Don't specify size of
scm_object_whash.
* keywords.c (scm_init_keywords): Don't specify a hash table size.
Diffstat (limited to 'ice-9')
| -rw-r--r-- | ice-9/ChangeLog | 5 | ||||
| -rw-r--r-- | ice-9/boot-9.scm | 9 |
2 files changed, 10 insertions, 4 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index a71953333..c2756615d 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,5 +1,10 @@ 2003-02-19 Mikael Djurfeldt <djurfeldt@nada.kth.se> + * boot-9.scm (make-module): Changed default size from 1021 to 31 + (since the size now adapts). + (macro-table, xformer-table): Changed default size from 523 to 61. + (make-module): Don't call make-hash-table with zero size. + * Makefile.am (ice9_sources): Added weak-vector.scm. * weak-vector.scm: New file. diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 246caf543..4bac71ab2 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -990,7 +990,7 @@ (if (> (length args) 3) (error "Too many args to make-module." args)) - (let ((size (parse-arg 0 1021)) + (let ((size (parse-arg 0 31)) (uses (parse-arg 1 '())) (binder (parse-arg 2 #f))) @@ -1003,7 +1003,8 @@ (error "Lazy-binder expected to be a procedure or #f." binder)) - (let ((module (module-constructor (make-hash-table size) + (let ((module (module-constructor (and (not (zero? size)) + (make-hash-table size)) uses binder #f #f #f #f '() (make-weak-value-hash-table 31) @@ -1902,8 +1903,8 @@ ;;; {Defmacros} ;;; -(define macro-table (make-weak-key-hash-table 523)) -(define xformer-table (make-weak-key-hash-table 523)) +(define macro-table (make-weak-key-hash-table 61)) +(define xformer-table (make-weak-key-hash-table 61)) (define (defmacro? m) (hashq-ref macro-table m)) (define (assert-defmacro?! m) (hashq-set! macro-table m #t)) |