summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-01-24 07:30:00 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-01-24 07:30:00 -0800
commit24f50b052eb8f8fe3a37d60d0a9e6daebab7f84a (patch)
tree69b708e12a8cff8a2c100e0b8e76d84a93fa7c80 /eval.c
parent21ecebc20e45132bd1c78fd5392b5f6523e4c9e6 (diff)
downloadtxr-24f50b052eb8f8fe3a37d60d0a9e6daebab7f84a.tar.gz
txr-24f50b052eb8f8fe3a37d60d0a9e6daebab7f84a.tar.bz2
txr-24f50b052eb8f8fe3a37d60d0a9e6daebab7f84a.zip
* 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.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
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));