* eval.c (eval_init): Register greater function as intrinsic.

* lib.c (gt_f, lt_f): Global variables removed.
(greater_f): New variable.
(greater): New function.
(find_max, pos_max): Use greater_f as default for testfun,
rather than gt_f.
(find_min, pos_min): Use less_f as default for testfun,
rather than lt_f.
(obj_init): Remove references to gt_f and lt_f.
GC-protect and initialize greater_f.

* lib.h (greater_f): Declared.
(gt_f, lt_f): Declarations removed.

* txr.1: Documented greater, and use of less and greater
in pos-min, pos-max, find-min and find-max.

* txr.vim: Regenerated.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index f8ea3cee..753d0211 100644
--- a/eval.c
+++ b/eval.c
@@ -3785,6 +3785,7 @@ void eval_init(void)
   reg_fun(intern(lit("tofloat"), user_package), func_n1(tofloat));
   reg_fun(intern(lit("toint"), user_package), func_n2o(toint, 1));
   reg_fun(intern(lit("less"), user_package), func_n2(less));
+  reg_fun(intern(lit("greater"), user_package), func_n2(greater));
   reg_fun(intern(lit("chrp"), user_package), func_n1(chrp));
   reg_fun(intern(lit("chr-isalnum"), user_package), func_n1(chr_isalnum));
   reg_fun(intern(lit("chr-isalpha"), user_package), func_n1(chr_isalpha));