Add some boolean procedures

1 files changed, 7 insertions, 5 deletions

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