From c2bfb5368e603d686190fdc9f3ddbafbda075a9c Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Sat, 9 Oct 2021 21:21:32 +0200 Subject: Add some boolean procedures --- src/bootstrap/main.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/bootstrap/main.c') diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c index e5d9b17..95b2e49 100755 --- a/src/bootstrap/main.c +++ b/src/bootstrap/main.c @@ -32,11 +32,13 @@ init(void) { obj_false = make_boolean(false); // Add primitive functions. - environment[env_n++] = (EnvSymbol){make_symbol("+", 1), make_procedure(proc_add)}; - environment[env_n++] = (EnvSymbol){make_symbol("-", 1), make_procedure(proc_sub)}; - environment[env_n++] = (EnvSymbol){make_symbol("*", 1), make_procedure(proc_mul)}; - environment[env_n++] = (EnvSymbol){make_symbol("/", 1), make_procedure(proc_div)}; - environment[env_n++] = (EnvSymbol){make_symbol("display", 7), make_procedure(proc_display)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("+"), make_procedure(proc_add)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("-"), make_procedure(proc_sub)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("*"), make_procedure(proc_mul)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("/"), make_procedure(proc_div)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("boolean?"), make_procedure(proc_is_boolean)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("false?"), make_procedure(proc_is_false)}; + environment[env_n++] = (EnvSymbol){MAKE_SYM("display"), make_procedure(proc_display)}; } void -- cgit v1.2.1