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

diff --git a/eval.c b/eval.c
index 41ebd8bc..7de6de77 100644
--- a/eval.c
+++ b/eval.c
@@ -2467,6 +2467,7 @@ void eval_init(void)
   reg_fun(intern(lit("hash-diff"), user_package), func_n2(hash_diff));
   reg_fun(intern(lit("hash-isec"), user_package), func_n2(hash_isec));
   reg_fun(intern(lit("group-by"), user_package), func_n2v(group_by));
+  reg_fun(intern(lit("hash-update"), user_package), func_n2(hash_update));
 
   reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1));
   reg_fun(intern(lit("lisp-parse"), user_package), func_n2o(lisp_parse, 0));
@@ -2661,6 +2662,7 @@ void eval_init(void)
   reg_fun(intern(lit("ref"), user_package), func_n2(ref));
   reg_fun(intern(lit("refset"), user_package), func_n3(refset));
   reg_fun(intern(lit("replace"), user_package), func_n4o(replace, 2));
+  reg_fun(intern(lit("update"), user_package), func_n2(update));
 
   reg_fun(intern(lit("symbol-value"), user_package), func_n1(symbol_value));
   reg_fun(intern(lit("symbol-function"), user_package), func_n1(symbol_function));