New function: find-true.

This is like find-if, but returns the value of the predicate
function rather than the item.

* eval.c (eval_init): Register find-true instrinsic.

* lib.c (find_true): New function.

* lib.c (find_true): Declared.

* stdlib/doc-syms.tl: Updated.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index f32608e2..48045bec 100644
--- a/eval.c
+++ b/eval.c
@@ -7150,6 +7150,7 @@ void eval_init(void)
   reg_fun(intern(lit("rfind-if"), user_package), func_n3o(rfind_if, 2));
   reg_fun(intern(lit("find-max"), user_package), func_n3o(find_max, 1));
   reg_fun(intern(lit("find-min"), user_package), func_n3o(find_min, 1));
+  reg_fun(intern(lit("find-true"), user_package), func_n3o(find_true, 2));
   reg_fun(intern(lit("multi-sort"), user_package), func_n3o(multi_sort, 2));
   reg_fun(intern(lit("set-diff"), user_package), func_n4o(set_diff, 2));
   reg_fun(intern(lit("diff"), user_package), func_n4o(diff, 2));