From 71f4c886ece16c2f8f1c52b86298cd348db37b8f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.
---
 lib.h | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index 14882390..d74304db 100644
--- a/lib.h
+++ b/lib.h
@@ -1080,6 +1080,8 @@ val from(val range);
 val to(val range);
 val set_from(val range, val from);
 val set_to(val range, val to);
+val in_range(val range, val num);
+val in_range_star(val range, val num);
 val env(void);
 void out_str_char(wchar_t ch, val out, int *semi_flag, int regex);
 val obj_print_impl(val obj, val out, val pretty, struct strm_ctx *);
-- 
cgit v1.2.3