Add numerical comparison primitive procedures

1 files changed, 5 insertions, 0 deletions

diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c
index c0f2e50..b8bab47 100755
--- a/src/bootstrap/main.c
+++ b/src/bootstrap/main.c
@@ -36,6 +36,11 @@ init(void) {
     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("<"), make_procedure(proc_num_less_than)};
+    environment[env_n++] = (EnvSymbol){MAKE_SYM(">"), make_procedure(proc_num_greater_than)};
+    environment[env_n++] = (EnvSymbol){MAKE_SYM("="), make_procedure(proc_num_equal)};
+    environment[env_n++] = (EnvSymbol){MAKE_SYM("<="), make_procedure(proc_num_lesseq_than)};
+    environment[env_n++] = (EnvSymbol){MAKE_SYM(">="), make_procedure(proc_num_greatereq_than)};
     environment[env_n++] = (EnvSymbol){MAKE_SYM("boolean?"), make_procedure(proc_is_boolean)};
     environment[env_n++] = (EnvSymbol){MAKE_SYM("not"), make_procedure(proc_not)};
     environment[env_n++] = (EnvSymbol){MAKE_SYM("and"), make_procedure(proc_and)};