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

Fix of previous change

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-02-19 17:57:01 +00:00
parent 231a4ea849
commit 9358af6a3e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/hashtab.c
View file

@ -104,6 +104,7 @@ SCM weak_hashtables = SCM_EOL;
static SCM static SCM
make_hash_table (int flags, unsigned long k, const char *func_name) { make_hash_table (int flags, unsigned long k, const char *func_name) {
SCM table, vector; SCM table, vector;
scm_t_hashtable *t;
int i = 0, n = k ? k : 31; int i = 0, n = k ? k : 31;
while (i < HASHTABLE_SIZE_N && n > hashtable_size[i]) while (i < HASHTABLE_SIZE_N && n > hashtable_size[i])
++i; ++i;
@ -118,7 +119,7 @@ make_hash_table (int flags, unsigned long k, const char *func_name) {
func_name); func_name);
else else
vector = scm_c_make_vector (n, SCM_EOL); vector = scm_c_make_vector (n, SCM_EOL);
scm_t_hashtable *t = scm_gc_malloc (sizeof (*t), s_hashtable); t = scm_gc_malloc (sizeof (*t), s_hashtable);
t->min_size_index = t->size_index = i; t->min_size_index = t->size_index = i;
t->n_items = 0; t->n_items = 0;
t->lower = 0; t->lower = 0;