From 0287650c7477bf6b5811f0456b6fc3e9bbd3d245 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Fri, 9 Jul 2021 23:59:09 -0400
Subject: lib: new function separate.

* lib.c (separate): New function.

* lib.h (separate): Declared.

* eval.c (eval_init): Register separate intrinsic.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.
---
 stdlib/doc-syms.tl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl
index e1a5d5a0..b2bfa33e 100644
--- a/stdlib/doc-syms.tl
+++ b/stdlib/doc-syms.tl
@@ -1036,8 +1036,8 @@
       ("join-with" "N-00B6ACE3")
       ("json" "N-0222106A")
       ("juxt" "N-0106CD7F")
-      ("keep-if" "N-01413802")
-      ("keep-if*" "N-01413802")
+      ("keep-if" "N-0159C541")
+      ("keep-if*" "N-0159C541")
       ("keep-match-products" "N-01A846D2")
       ("keep-matches" "N-01A846D2")
       ("keepq" "N-00583609")
@@ -1513,8 +1513,8 @@
       ("relate" "N-032DBF7E")
       ("release-deferred-warnings" "N-012F0BE9")
       ("remhash" "N-0029C57A")
-      ("remove-if" "N-01413802")
-      ("remove-if*" "N-01413802")
+      ("remove-if" "N-0159C541")
+      ("remove-if*" "N-0159C541")
       ("remove-path" "N-014AF3F7")
       ("remove-path-rec" "N-03E81B3A")
       ("remq" "N-000ECD82")
@@ -1608,6 +1608,7 @@
       ("seek-stream" "N-031B5075")
       ("select" "N-031D7F72")
       ("self-path" "N-03561A65")
+      ("separate" "N-0159C541")
       ("seq-begin" "N-0068A845")
       ("seq-next" "N-02E3D643")
       ("seq-reset" "N-01CA6912")
-- 
cgit v1.2.3