Simplify gethash variants using new function.

* hash.c (gethash_e): New function. Just returns the entry cell if
found, or else nil. This should have been written first.
(gethash, gethash_f, gethash_n): Replace body with trivial one-liner
based on gethash_e.

* hash.h (gethash_e): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.h b/hash.h
index 608ecddd..f5af5c0a 100644
--- a/hash.h
+++ b/hash.h
@@ -32,6 +32,7 @@ val make_hash(val weak_keys, val weak_vals, val equal_based);
 val make_similar_hash(val existing);
 val copy_hash(val existing);
 val gethash_c(val hash, val key, loc new_p);
+val gethash_e(val hash, val key);
 val gethash(val hash, val key);
 val inhash(val hash, val key, val init);
 val gethash_n(val hash, val key, val notfound_val);