Cleanup if call in eval function

1 files changed, 3 insertions, 1 deletions

diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c
index bf2354b..2d24f92 100755
--- a/src/bootstrap/main.c
+++ b/src/bootstrap/main.c
@@ -37,11 +37,13 @@ init(void) {
     obj_false = alloc_object(OBJ_TYPE_BOOL);
     obj_err = alloc_object(OBJ_TYPE_ERR);
     obj_quote = make_symbol((StringView){"quote", 5});
+    proc_if = alloc_object(OBJ_TYPE_ERR);
     push_root(obj_nil);
     push_root(obj_true);
     push_root(obj_false);
     push_root(obj_err);
     push_root(obj_quote);
+    push_root(proc_if);
 
     // Global environment.
     global_env = env_create(NULL);
@@ -52,6 +54,7 @@ init(void) {
     // Primitive symbols.
     MAKE_ENV_VAR(global_env, "else", obj_true);
     MAKE_ENV_VAR(global_env, "nil", obj_nil);
+    MAKE_ENV_VAR(global_env, "if", proc_if);
 
     // Primitive procedures.
     MAKE_ENV_PROC(global_env, "eval", proc_eval);
@@ -79,7 +82,6 @@ init(void) {
     MAKE_ENV_PROC(global_env, "not", proc_not);
     MAKE_ENV_PROC(global_env, "and", proc_and);
     MAKE_ENV_PROC(global_env, "or", proc_or);
-    MAKE_ENV_PROC(global_env, "if", proc_if);
     MAKE_ENV_PROC(global_env, "cond", proc_cond);
     MAKE_ENV_PROC(global_env, "<", proc_num_less_than);
     MAKE_ENV_PROC(global_env, "<=", proc_num_lesseq_than);