diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-01-24 07:30:00 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-01-24 07:30:00 -0800 |
| commit | 24f50b052eb8f8fe3a37d60d0a9e6daebab7f84a (patch) | |
| tree | 69b708e12a8cff8a2c100e0b8e76d84a93fa7c80 /eval.c | |
| parent | 21ecebc20e45132bd1c78fd5392b5f6523e4c9e6 (diff) | |
| download | txr-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.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)); |