From 71f4c886ece16c2f8f1c52b86298cd348db37b8f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 27 Nov 2018 23:19:49 -0800 Subject: New range testing functions. * eval.c (eval_init): Register in-range and in-range* intrinsics. * lib.c (in_range, in_range_star): New functions. * lib.h (in_range, in_range_star): Declared. * txr.1: Documented. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 9219c8d4..8e9fb067 100644 --- a/eval.c +++ b/eval.c @@ -6771,6 +6771,8 @@ void eval_init(void) reg_fun(intern(lit("rangep"), user_package), func_n1(rangep)); reg_fun(intern(lit("from"), user_package), func_n1(from)); reg_fun(intern(lit("to"), user_package), func_n1(to)); + reg_fun(intern(lit("in-range"), user_package), func_n2(in_range)); + reg_fun(intern(lit("in-range*"), user_package), func_n2(in_range_star)); reg_fun(intern(lit("make-like"), user_package), func_n2(make_like)); reg_fun(intern(lit("nullify"), user_package), func_n1(nullify)); -- cgit v1.2.3