* eval.c (eval_init): Register inhash as intrinsic.

* hash.c (inhash): New function.

* hash.h (inhash): Declared.

* txr.1: Documented inhash. Also, added surprisingly missing
documentation for gethash!

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.h b/hash.h
index a71b1ef4..5afc9572 100644
--- a/hash.h
+++ b/hash.h
@@ -31,6 +31,7 @@ val make_similar_hash(val existing);
 val copy_hash(val existing);
 val *gethash_l(val hash, val key, val *new_p);
 val gethash(val hash, val key);
+val inhash(val hash, val key, val init);
 val gethash_n(val hash, val key, val notfound_val);
 val gethash_f(val hash, val key, val *found);
 val sethash(val hash, val key, val value);