summaryrefslogtreecommitdiffstats
path: root/hash.c
diff options
context:
space:
mode:
Diffstat (limited to 'hash.c')
-rw-r--r--hash.c10
1 files changed, 3 insertions, 7 deletions
diff --git a/hash.c b/hash.c
index 892dfa5c..db7be842 100644
--- a/hash.c
+++ b/hash.c
@@ -117,9 +117,9 @@ static cnum equal_hash(val obj)
return ((cnum) obj->f.f.interp_fun + equal_hash(obj->f.env)) & NUM_MAX;
case VEC:
{
- val fill = obj->v.vec[vec_fill];
- cnum i, h = equal_hash(obj->v.vec[vec_fill]);
- cnum len = c_num(fill);
+ val length = obj->v.vec[vec_length];
+ cnum i, h = equal_hash(obj->v.vec[vec_length]);
+ cnum len = c_num(length);
for (i = 0; i < len; i++)
h = (h + equal_hash(obj->v.vec[i])) & NUM_MAX;
@@ -228,8 +228,6 @@ static void hash_grow(struct hash *h)
bug_unless (new_modulus > h->modulus);
- vec_set_fill(new_table, num(new_modulus));
-
for (i = 0; i < h->modulus; i++) {
val conses = *vecref_l(h->table, num(i));
@@ -256,8 +254,6 @@ val make_hash(val weak_keys, val weak_vals, val equal_based)
val table = vector(mod);
val hash = cobj((mem_t *) h, hash_s, &hash_ops);
- vec_set_fill(table, mod);
-
h->flags = (hash_flags_t) flags;
h->modulus = c_num(mod);
h->count = 0;