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