* hash.c (hash_from_pairs, hash_list): New functions.

* hash.h (hash_from_pairs, hash_list): Declared.

* eval.c (eval_init): Registered hash-from-pairs and hash-list
intrinsic.

* txr.1: Documented new functions.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index c61b1460..1b9b7805 100644
--- a/eval.c
+++ b/eval.c
@@ -4251,6 +4251,8 @@ void eval_init(void)
   reg_fun(intern(lit("copy-hash"), user_package), func_n1(copy_hash));
   reg_fun(intern(lit("hash"), user_package), func_n0v(hashv));
   reg_fun(intern(lit("hash-construct"), user_package), func_n2(hash_construct));
+  reg_fun(intern(lit("hash-from-pairs"), user_package), func_n1v(hash_from_pairs));
+  reg_fun(intern(lit("hash-list"), user_package), func_n1v(hash_list));
   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));