From 9323c1285a8a9f7ec33e88d26f102d92c7a6e2ec Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Sun, 10 Oct 2021 14:15:45 +0200 Subject: Add cond special form --- src/bootstrap/main.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/bootstrap/main.c') diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c index 8ec1231..c0f2e50 100755 --- a/src/bootstrap/main.c +++ b/src/bootstrap/main.c @@ -41,6 +41,8 @@ init(void) { environment[env_n++] = (EnvSymbol){MAKE_SYM("and"), make_procedure(proc_and)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("or"), make_procedure(proc_or)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("if"), make_procedure(proc_if)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("else"), obj_true}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("cond"), make_procedure(proc_cond)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("display"), make_procedure(proc_display)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("print"), make_procedure(proc_print)}; } -- cgit v1.2.1