diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-07 09:14:03 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-07 09:14:03 -0800 |
| commit | 35b83a9039898856776d1237a151f29cbce28a2f (patch) | |
| tree | 9058ca6976feb557312d6d0da76d2cc913bad95e /eval.c | |
| parent | 46dea2737dcd5d74585878459999f230f2d002bc (diff) | |
| download | txr-35b83a9039898856776d1237a151f29cbce28a2f.tar.gz txr-35b83a9039898856776d1237a151f29cbce28a2f.tar.bz2 txr-35b83a9039898856776d1237a151f29cbce28a2f.zip | |
* eval.c (eval_init): New functions registered as intrinsics.
* lib.c (chr_toupper, chr_tolower): New functions.
* lib.h (chr_toupper, chr_tolower): New functions declared.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1199,6 +1199,8 @@ void eval_init(void) reg_fun(intern(lit("chr-isspace"), user_package), func_n1(chr_isspace)); 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)); + reg_fun(intern(lit("chr-tolower"), user_package), func_n1(chr_tolower)); reg_fun(intern(lit("chr-str"), user_package), func_n2(chr_str)); reg_fun(intern(lit("chr-str-set"), user_package), func_n3(chr_str_set)); reg_fun(intern(lit("span-str"), user_package), func_n2(span_str)); |