New functions: find-max-key and find-min-key.

* eval.c (eval_init): Register find-max-key and find-min-key
intrinsics.

* lib.c (find_max_key, find_min_key): New functions.

* lib.h (find_max_key, find_min_key): Declared.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index d2d7a486..817e8d87 100644
--- a/lib.h
+++ b/lib.h
@@ -1197,7 +1197,9 @@ 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_max_key(val seq, val testfun, val keyfun);
 val find_min(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);
 val rposqual(val obj, val list);