* eval.c (eval_init): New functions added as intrinsics.

* hash.c (hash_eql, hash_equal): New external functions.

* hash.h (hash_eql, hash_equal): Declared.

* txr.1: Sections added.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 43a98305..9f9ce124 100644
--- a/eval.c
+++ b/eval.c
@@ -1180,6 +1180,8 @@ void eval_init(void)
           func_n2(set_hash_userdata));
   reg_fun(intern(lit("hashp"), user_package), func_n1(hashp));
   reg_fun(intern(lit("maphash"), user_package), func_n2(maphash));
+  reg_fun(intern(lit("hash-eql"), user_package), func_n1(hash_eql));
+  reg_fun(intern(lit("hash-equal"), user_package), func_n1(hash_equal));
 
   reg_fun(intern(lit("eval"), user_package), func_n2(eval_intrinsic));