diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-04-14 14:11:25 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-04-14 14:11:25 -0700 |
| commit | a82a0b4aa32dc54b5ee590e9b87e9ad635b12ecc (patch) | |
| tree | 9a968f077510ce4ef2cbfa32cd1c63826a3ccd8f /eval.c | |
| parent | 38ffa1f373288d9bbf29b5bb2f763a35067ab5f4 (diff) | |
| download | txr-a82a0b4aa32dc54b5ee590e9b87e9ad635b12ecc.tar.gz txr-a82a0b4aa32dc54b5ee590e9b87e9ad635b12ecc.tar.bz2 txr-a82a0b4aa32dc54b5ee590e9b87e9ad635b12ecc.zip | |
* eval.c (eval_init): New functions remove-if and keep-if.
* lib.c (remove_if, keep_if): New functions.
* lib.h (remove_if, keep_if): Declared.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2175,6 +2175,8 @@ void eval_init(void) reg_fun(intern(lit("remq"), user_package), func_n2(remq)); reg_fun(intern(lit("remql"), user_package), func_n2(remql)); reg_fun(intern(lit("remqual"), user_package), func_n2(remqual)); + reg_fun(intern(lit("remove-if"), user_package), func_n3o(remove_if, 2)); + reg_fun(intern(lit("keep-if"), user_package), func_n3o(keep_if, 2)); reg_fun(intern(lit("tree-find"), user_package), func_n3o(tree_find, 2)); reg_fun(intern(lit("some"), user_package), func_n3o(some_satisfy, 2)); reg_fun(intern(lit("all"), user_package), func_n3o(all_satisfy, 2)); |