Add set! and eval procedures

1 files changed, 2 insertions, 0 deletions

diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c
index e8e530d..052f1c0 100755
--- a/src/bootstrap/main.c
+++ b/src/bootstrap/main.c
@@ -40,6 +40,7 @@ init(void) {
     MAKE_ENV_VAR(global_env, "nil", obj_nil);
 
     // Primitive procedures.
+    MAKE_ENV_PROC(global_env, "eval", proc_eval);
     MAKE_ENV_PROC(global_env, "quote", proc_quote);
     MAKE_ENV_PROC(global_env, "car", proc_car);
     MAKE_ENV_PROC(global_env, "cdr", proc_cdr);
@@ -72,6 +73,7 @@ init(void) {
     MAKE_ENV_PROC(global_env, "=", proc_num_equal);
     MAKE_ENV_PROC(global_env, "eq?", proc_equal);
     MAKE_ENV_PROC(global_env, "def", proc_define);
+    MAKE_ENV_PROC(global_env, "set!", proc_set);
 }
 
 void