From ff18ec7c29456025f7e4e29c4d24f5efa1913ca8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 11 Oct 2014 08:15:13 -0700 Subject: * 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. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 9063c2c5..4c48079f 100644 --- a/eval.c +++ b/eval.c @@ -3787,6 +3787,8 @@ void eval_init(void) reg_fun(intern(lit("chr-isprint"), user_package), func_n1(chr_isprint)); reg_fun(intern(lit("chr-ispunct"), user_package), func_n1(chr_ispunct)); reg_fun(intern(lit("chr-isspace"), user_package), func_n1(chr_isspace)); + reg_fun(intern(lit("chr-isblank"), user_package), func_n1(chr_isblank)); + reg_fun(intern(lit("chr-isunisp"), user_package), func_n1(chr_isunisp)); reg_fun(intern(lit("chr-isupper"), user_package), func_n1(chr_isupper)); reg_fun(intern(lit("chr-isxdigit"), user_package), func_n1(chr_isxdigit)); reg_fun(intern(lit("chr-toupper"), user_package), func_n1(chr_toupper)); -- cgit v1.2.3