klisp

an open source interpreter for the Kernel Programming Language.
git clone http://git.hanabi.in/repos/klisp.git
Log | Files | Refs | README

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:
Msrc/kgcontinuations.h | 3++-
Msrc/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");