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);