New function: cons-find.

* eval.c (cons_find): Static function removed; a new one is
implemented in lib.c.
(eval_init): Register cons-find intrinsic.

* lib.c (cons_find_rec): New static function.
(cons_find): New function.

* lib.h (cons_find): Declared.

* tests/012/cons.tl: New file.

* txr.1: Documented cons-find together with tree-find.
Document that tree-find's test-fun argument is optional,
defaulting to equal.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 349d0888..212a03a0 100644
--- a/lib.h
+++ b/lib.h
@@ -858,6 +858,7 @@ val remqual_lazy(val obj, val list);
 val remove_if_lazy(val pred, val list, val key);
 val keep_if_lazy(val pred, val list, val key);
 val tree_find(val obj, val tree, val testfun);
+val cons_find(val obj, val tree, val testfun);
 val countqual(val obj, val list);
 val countql(val obj, val list);
 val countq(val obj, val list);