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, 20 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 5a4eb3ad..d06a71b1 100644
--- a/lib.c
+++ b/lib.c
@@ -10639,6 +10639,26 @@ val set_to(val range, val to)
   return range;
 }
 
+val in_range(val range, val num)
+{
+  type_check(lit("in-range"), range, RNG);
+  {
+    val from = range->rn.from;
+    val to = range->rn.to;
+    return and2(lequal(from, num), lequal(num, to));
+  }
+}
+
+val in_range_star(val range, val num)
+{
+  type_check(lit("in-range*"), range, RNG);
+  {
+    val from = range->rn.from;
+    val to = range->rn.to;
+    return and2(lequal(from, num), less(num, to));
+  }
+}
+
 val env(void)
 {
   if (env_list) {