commit c960fbc1e194da8cc447fea8fab1923c5aef1076
parent 33674fb58d9fc0a9d2f23eee1035df3275c5951f
Author: Andres Navarro <canavarro82@gmail.com>
Date: Fri, 18 Mar 2011 15:20:43 -0300
Added char? to the ground environment.
Diffstat:
| M | src/kground.c | | | 49 | +++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 49 insertions(+), 0 deletions(-)
diff --git a/src/kground.c b/src/kground.c
@@ -471,6 +471,55 @@ void kinit_ground_env(klisp_State *K)
/*
**
+ ** 14 Characters
+ **
+ */
+
+ /*
+ ** This section is still missing from the report. The bindings here are
+ ** taken from r5rs scheme and should not be considered standard. They are
+ ** provided in the meantime to allow programs to use character features
+ ** (ASCII only).
+ */
+
+ /*
+ ** 14.1 Primitive features
+ */
+
+ /* 14.1.1? char? */
+ add_applicative(K, ground_env, "char?", typep, 2, symbol,
+ i2tv(K_TCHAR));
+
+ /* 14.1.2? char-alphabetic?, char-numeric?, char-whitespace? */
+ /* TODO */
+
+ /* 14.1.3? char-upper-case?, char-lower-case? */
+ /* TODO */
+
+ /* 14.1.4? char->integer, integer->char */
+ /* TODO */
+
+ /* 14.1.4? char-upcase, char-downcase */
+ /* TODO */
+
+ /*
+ ** 14.2 Library features
+ */
+
+ /* 14.2.1? char=? */
+ /* TODO */
+
+ /* 14.2.2? char<?, char<=?, char>?, char>=? */
+ /* TODO */
+
+ /* 14.2.3? char-ci=? */
+ /* TODO */
+
+ /* 14.2.4? char-ci<?, char-ci<=?, char-ci>?, char-ci>=? */
+ /* TODO */
+
+ /*
+ **
** 15 Ports
**
*/
