Add cond special form

1 files changed, 2 insertions, 0 deletions

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)};
 }