klisp

commit 2e5521951dd3424ef60abeb8b1c5c7718ed8ab00
parent 743d47c79f934b13ff7911e3306ca06210785f2c
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat, 12 Mar 2011 01:01:22 -0300

Added list applicative to the ground environment.

Diffstat:
M
src/kground.c
 | 
11
+++++++++--

1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/src/kground.c b/src/kground.c
@@ -1155,7 +1155,14 @@ void Ssequence(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
 */
 
 /* 5.2.1 list */
-/* TODO */
+/* the underlying combiner of list return the complete ptree, the only list
+   checking is implicit in the applicative evaluation */
+void list(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
+{
+    (void) xparams;
+    (void) denv;
+    kapply_cc(K, ptree);
+}
 
 /* 5.2.2 list* */
 /* TODO */
@@ -1342,7 +1349,7 @@ TValue kmake_ground_env(klisp_State *K)
     */
 
     /* 5.2.1 list */
-    /* TODO */
+    add_applicative(K, ground_env, "list", list, 0);
 
     /* 5.2.2 list* */
     /* TODO */