New functions: find-maxes and find-mins.

* eval.c (eval_init): New intrinsic functions find-maxes and
find-mins.

* lib.[ch] (find_maxes, find_mins): New function.

* tests/012/seq.tl: New tests.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 5cb52990..5bc180df 100644
--- a/lib.h
+++ b/lib.h
@@ -1400,8 +1400,10 @@ val rfind(val list, val key, val testfun, val keyfun);
 val find_if(val pred, val list, val key);
 val rfind_if(val pred, val list, val key);
 val find_max(val seq, val testfun, val keyfun);
+val find_maxes(val seq, val testfun_in, val keyfun_in);
 val find_max_key(val seq, val testfun, val keyfun);
 val find_min(val seq, val testfun, val keyfun);
+val find_mins(val seq, val testfun, val keyfun);
 val find_min_key(val seq, val testfun, val keyfun);
 val find_true(val pred, val list, val keyfun);
 val posqual(val obj, val list);