From fe47cba529cc8688e7073b51ee1c596d5b42bda8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 13 Oct 2014 19:25:15 -0700 Subject: * 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. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') 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)); -- cgit v1.2.3