diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 06:43:28 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 06:43:28 -0800 |
commit | 5e72e73394c005dc816b10cdcb5930499e39ad7b (patch) | |
tree | a2393b1c403c924fd97fde5db810a3234b24870f /eval.c | |
parent | e987585d08122ecf3448a2d432346d2e128e5926 (diff) | |
download | txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.tar.gz txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.tar.bz2 txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.zip |
New function: partition-if.
* eval.c (eval_init): Register partition-if intrinsic.
* lib.c (partition_if_countdown_funv, partition_if_func): New
functions.
(partition_if): New function.
* lib.h (partition_if): Declared.
* tests/012/seq.tl: New test cases.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -6980,6 +6980,7 @@ void eval_init(void) reg_fun(intern(lit("tuples"), user_package), func_n3o(tuples, 2)); reg_fun(intern(lit("tuples*"), user_package), func_n3o(tuples_star, 2)); reg_fun(intern(lit("partition-by"), user_package), func_n2(partition_by)); + reg_fun(intern(lit("partition-if"), user_package), func_n3o(partition_if, 2)); reg_fun(intern(lit("partition"), user_package), func_n2(partition)); reg_fun(intern(lit("split"), user_package), func_n2(split)); reg_fun(intern(lit("split*"), user_package), func_n2(split_star)); |