* 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.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 82ab73a1..21e068cc 100644
--- a/lib.c
+++ b/lib.c
@@ -1528,6 +1528,16 @@ val chr_isxdigit(val ch)
   return c_true(iswxdigit(c_chr(ch)));
 }
 
+val chr_toupper(val ch)
+{
+  return chr(towupper(c_chr(ch)));
+}
+
+val chr_tolower(val ch)
+{
+  return chr(towlower(c_chr(ch)));
+}
+
 val chr_str(val str, val index)
 {
   bug_unless (length_str_gt(str, index));