* 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/eval.c b/eval.c
index 92c4afe1..5f88d61c 100644
--- a/eval.c
+++ b/eval.c
@@ -2491,6 +2491,7 @@ void eval_init(void)
   reg_fun(intern(lit("hash"), user_package), func_n0v(hashv));
   reg_fun(intern(lit("hash-construct"), user_package), func_n2(hash_construct));
   reg_fun(gethash_s, func_n3o(gethash_n, 2));
+  reg_fun(intern(lit("inhash"), user_package), func_n3o(inhash, 2));
   reg_fun(intern(lit("sethash"), user_package), func_n3(sethash));
   reg_fun(intern(lit("pushhash"), user_package), func_n3(pushhash));
   reg_fun(intern(lit("remhash"), user_package), func_n2(remhash));