* 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, 19 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 45e18298..4ece8a54 100644
--- a/hash.c
+++ b/hash.c
@@ -880,6 +880,25 @@ val hash_construct(val hashv_args, val pairs)
   return hash;
 }
 
+val hash_from_pairs(val pairs, val hashv_args)
+{
+  return hash_construct(default_bool_arg(hashv_args), pairs);
+}
+
+val hash_list(val keys, val hashv_args)
+{
+  val hash = hashv(default_bool_arg(hashv_args));
+
+  keys = nullify(keys);
+
+  for (; keys; keys = cdr(keys)) {
+    val key = car(keys);
+    sethash(hash, key, key);
+  }
+
+  return hash;
+}
+
 val group_by(val func, val seq, val hashv_args)
 {
   val hash = hashv(hashv_args);