diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | hash.c | 5 |
2 files changed, 6 insertions, 3 deletions
@@ -1,5 +1,9 @@ 2014-02-14 Kaz Kylheku <kaz@kylheku.com> + * hash.c (inhash): Simplify code with gethash_f. + +2014-02-14 Kaz Kylheku <kaz@kylheku.com> + * eval.c (eval_init): Registered hash_update_1 as intrinsic. * hash.c (hash_update_1): New function. @@ -544,13 +544,12 @@ val gethash(val hash, val key) val inhash(val hash, val key, val init) { - struct hash *h = (struct hash *) cobj_handle(hash, hash_s); val found; if (missingp(init)) { - val chain = vecref(h->table, num_fast(h->hash_fun(key) % h->modulus)); - found = h->assoc_fun(key, chain); + gethash_f(hash, key, &found); } else { + struct hash *h = (struct hash *) cobj_handle(hash, hash_s); val *pchain = vecref_l(h->table, num_fast(h->hash_fun(key) % h->modulus)); val old = *pchain, new_p; val *place = h->acons_new_l_fun(key, &new_p, pchain); |