klisp

commit b50e77e2920797687ab14ac3dc7faa0082f39ff6
parent 1d7e0678dc3635630fb09fab8b4ea8363274d583
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sun, 13 Mar 2011 03:11:21 -0300

Added call/cc to the ground environment.

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

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/kgcontinuations.h b/src/kgcontinuations.h
@@ -22,7 +22,7 @@
 /* uses typep */
 
 /* 7.2.2 call/cc */
-/* TODO */
+void call_cc(klisp_State *K, TValue *xparams, TValue ptree, TValue denv);
 
 /* 7.2.3 extend-continuation */
 /* TODO */
diff --git a/src/kground.c b/src/kground.c
@@ -354,7 +354,7 @@ TValue kmake_ground_env(klisp_State *K)
 		    i2tv(K_TCONTINUATION));
 
     /* 7.2.2 call/cc */
-    /* TODO */
+    add_applicative(K, ground_env, "call/cc", call_cc, 0);
 
     /* 7.2.3 extend-continuation */
     /* TODO */