klisp

commit 51adc01edbf2827483c3f3df0c837a6ab9e8e865
parent 5369e731308efb9a406db870442e6c7dc3d43faa
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sun, 13 Mar 2011 03:43:17 -0300

Added continuation->applicative to the ground environment.

Diffstat:
M
src/kgcontinuations.h
 | 
3
++-
M
src/kground.c
 | 
3
++-

2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/kgcontinuations.h b/src/kgcontinuations.h
@@ -31,7 +31,8 @@ void call_cc(klisp_State *K, TValue *xparams, TValue ptree, TValue denv);
 /* TODO */
 
 /* 7.2.5 continuation->applicative */
-/* TODO */
+void continuation_applicative(klisp_State *K, TValue *xparams, TValue ptree, 
+			      TValue denv);
 
 /* 7.2.6 root-continuation */
 /* TODO */
diff --git a/src/kground.c b/src/kground.c
@@ -362,7 +362,8 @@ void kinit_ground_env(klisp_State *K)
     /* TODO */
 
     /* 7.2.5 continuation->applicative */
-    /* TODO */
+    add_applicative(K, ground_env, "continuation->applicative",
+		    continuation_applicative, 0);
 
     /* 7.2.6 root-continuation */
     symbol = ksymbol_new(K, "root-continuation");