From c497aca556295479b1ed5632e125ff1d0658d8d8 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Mon, 11 Oct 2021 09:40:39 +0200 Subject: Add a base struct to start environment refactoring --- src/bootstrap/main.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/bootstrap/main.c') diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c index 65e508f..66c3780 100755 --- a/src/bootstrap/main.c +++ b/src/bootstrap/main.c @@ -54,6 +54,9 @@ init(void) { 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("true"), obj_true}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("false"), obj_false}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("nil"), obj_nil}; environment[env_n++] = (EnvSymbol){MAKE_SYM("cond"), make_procedure(proc_cond)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("car"), make_procedure(proc_car)}; environment[env_n++] = (EnvSymbol){MAKE_SYM("cdr"), make_procedure(proc_cdr)}; -- cgit v1.2.1