diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-10-11 08:15:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-10-11 08:15:13 -0700 |
| commit | ff18ec7c29456025f7e4e29c4d24f5efa1913ca8 (patch) | |
| tree | cf0dcb762fab19e1df88902bf0e7a89f4a794f7a /eval.c | |
| parent | 570a4cd9315f1a2189cb6d1877aa13a78ec00f0a (diff) | |
| download | txr-ff18ec7c29456025f7e4e29c4d24f5efa1913ca8.tar.gz txr-ff18ec7c29456025f7e4e29c4d24f5efa1913ca8.tar.bz2 txr-ff18ec7c29456025f7e4e29c4d24f5efa1913ca8.zip | |
* 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.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)); |