From d38ae947933fe26773a810d91fba3b23766d4d92 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Wed, 13 Oct 2021 20:46:26 +0200 Subject: Add set! and eval procedures --- 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 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 -- cgit v1.2.1