From 5e72e73394c005dc816b10cdcb5930499e39ad7b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 23 Feb 2022 06:43:28 -0800
Subject: 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.
---
 stdlib/doc-syms.tl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'stdlib')

diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl
index d2af2cc1..7a9348ee 100644
--- a/stdlib/doc-syms.tl
+++ b/stdlib/doc-syms.tl
@@ -1408,6 +1408,7 @@
       ("partition" "N-0142889E")
       ("partition*" "N-03951D7A")
       ("partition-by" "N-000167DF")
+      ("partition-if" "N-017167C1")
       ("passwd" "N-036B0636")
       ("path-blkdev-p" "N-00198FC7")
       ("path-cat" "N-0033B27E")
-- 
cgit v1.2.3