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.

1 files changed, 2 insertions, 0 deletions

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));