diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-06-07 07:04:17 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-06-07 07:04:17 -0700 |
| commit | eb62dd3bbcb458685cb0510dcf3991263c59b4df (patch) | |
| tree | ef3be11d27c97bb7df6c3b170fffcfa3f90449f0 /eval.c | |
| parent | c990a1f4381b7b45070f3c28d9cce8ea188f1b0b (diff) | |
| download | txr-eb62dd3bbcb458685cb0510dcf3991263c59b4df.tar.gz txr-eb62dd3bbcb458685cb0510dcf3991263c59b4df.tar.bz2 txr-eb62dd3bbcb458685cb0510dcf3991263c59b4df.zip | |
New functions keep-keys-if, separate-keys.
* lib.[ch] (keep_keys_if, separate_keys): New functions.
* eval.c (eval_init): keep-keys-if, separate-keys intrinsics
registered.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -7319,7 +7319,9 @@ void eval_init(void) reg_fun(intern(lit("keepql"), user_package), func_n3o(keepql, 2)); reg_fun(intern(lit("keepqual"), user_package), func_n3o(keepqual, 2)); reg_fun(intern(lit("keep-if"), user_package), func_n3o(keep_if, 2)); + reg_fun(intern(lit("keep-keys-if"), user_package), func_n3o(keep_keys_if, 2)); reg_fun(intern(lit("separate"), user_package), func_n3o(separate, 2)); + reg_fun(intern(lit("separate-keys"), user_package), func_n3o(separate_keys, 2)); reg_fun(intern(lit("remq*"), user_package), func_n2(remq_lazy)); reg_fun(intern(lit("remql*"), user_package), func_n2(remql_lazy)); reg_fun(intern(lit("remqual*"), user_package), func_n2(remqual_lazy)); |