* hash.c (hash_update): New function.

* hash.h (hash_update): Declared.

* lib.c (update): New function.

* lib.h (update): Declared.

* eval.c (eval_init): Register hash_update and update as intrinsics.

* txr.1: Documented.

1 files changed, 9 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 21168c0c..9befedab 100644
--- a/hash.c
+++ b/hash.c
@@ -858,6 +858,15 @@ val hash_isec(val hash1, val hash2)
   }
 }
 
+val hash_update(val hash, val fun)
+{
+  val iter = hash_begin(hash);
+  val cell;
+  while ((cell = hash_next(iter)) != nil)
+    rplacd(cell, funcall1(fun, cdr(cell)));
+  return hash;
+}
+
 void hash_init(void)
 {
   weak_keys_k = intern(lit("weak-keys"), keyword_package);