* eval.c (eval_init): Register chr_isblank and chr_isunisp as

intrinsics.

* lib.c (chr_isblank, chr_isunisp): New functions.

* lib.h (chr_isblank, chr_isunisp): Declared.

* regex.h (spaces): Declaration for existing variable added.

* txr.1: Documented chr-isblank and chr-isunisp.

* genvim.txr: Add missing sysif.c.

* txr.vim: Regenerated.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 2c4db220..c90b4823 100644
--- a/lib.c
+++ b/lib.c
@@ -3085,6 +3085,16 @@ val chr_isspace(val ch)
   return c_true(iswspace(c_chr(ch)));
 }
 
+val chr_isblank(val ch)
+{
+  return c_true(ch == chr(' ') || ch == chr('\t'));
+}
+
+val chr_isunisp(val ch)
+{
+  return c_true(wcschr(spaces, c_chr(ch)));
+}
+
 val chr_isupper(val ch)
 {
   return c_true(iswupper(c_chr(ch)));