* hash.c (sethash): New function.

* hash.h (sethash): Declared.

* lib.c (cobj_handle): New function.

* lib.h (cobj_handle): Declared.

1 files changed, 7 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 82b1406f..ccc5aa10 100644
--- a/hash.c
+++ b/hash.c
@@ -258,6 +258,13 @@ val gethash(val hash, val key)
   return cdr(found);
 }
 
+val sethash(val hash, val key, val value)
+{
+  val new_p;
+  *gethash_l(hash, key, &new_p) = value;
+  return new_p;
+}
+
 val remhash(val hash, val key)
 {
   struct hash *h = (struct hash *) hash->co.handle;