* hash.c (hash_revget): New function.

* hash.h (hash_revget): Declared.

* eval.c (eval_init): Registered hash-revget intrinsic.

* txr.1: Documented hash-revget.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index bfe7ade2..453c20fb 100644
--- a/eval.c
+++ b/eval.c
@@ -4373,6 +4373,7 @@ void eval_init(void)
   reg_fun(intern(lit("hash-update"), user_package), func_n2(hash_update));
   reg_fun(intern(lit("hash-update-1"), user_package),
           func_n4o(hash_update_1, 3));
+  reg_fun(intern(lit("hash-revget"), user_package), func_n4o(hash_revget, 2));
 
   reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1));
   reg_fun(intern(lit("lisp-parse"), user_package), func_n4o(lisp_parse, 0));