sjs/lake
1
0
Fork 0
mirror of https://github.com/samsonjs/lake.git synced 2026-04-05 10:45:51 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add when special form

Browse source
This commit is contained in:
Sami Samhuri 2011-04-22 12:47:44 -07:00
parent 43d6ca80f0
commit a0d5f40515
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/eval.c
View file

@ -184,6 +184,17 @@ static LakeVal *_cond(Env *env, LakeList *expr)
return NULL;
}
static LakeVal *_when(Env *env, LakeList *expr)
{
if (LIST_N(expr) < 2) {
invalid_special_form(expr, "when requires at least 2 parameters");
return NULL;
}
list_shift(expr); /* "when" token */
LakeVal *cond = eval(env, list_shift(expr));
return IS_TRUTHY(cond) ? eval_exprs1(env, expr) : NULL;
}
static void init_special_form_handlers(void)
{
#define HANDLER(name, fn) g_hash_table_insert(special_form_handlers, \
@ -196,7 +207,7 @@ static void init_special_form_handlers(void)
HANDLER("and", &_and);
HANDLER("or", &_or);
HANDLER("if", &_if);
/* HANDLER("when", &_when); */
HANDLER("when", &_when);
HANDLER("cond", &_cond);
HANDLER("set!", &_setB);
HANDLER("define", &_define);