1 files changed, 5 insertions, 0 deletions

diff --git a/src/bootstrap/main.c b/src/bootstrap/main.c
index 8092bbd..945e121 100755
--- a/src/bootstrap/main.c
+++ b/src/bootstrap/main.c
@@ -14,6 +14,10 @@
 #include "environment.c"
 #include "primitives.c"
 
+//
+// Utility macros.
+//
+
 #define MAKE_SYM(STR) make_symbol((StringView){(STR), sizeof(STR) - 1})
 #define MAKE_ENV_VAR(ENV,STR,VAR) \
     (env_add_symbol((ENV), MAKE_SYM(STR), (VAR)))
@@ -66,6 +70,7 @@ init(void) {
     MAKE_ENV_PROC(global_env, ">", proc_num_greater_than);
     MAKE_ENV_PROC(global_env, ">=", proc_num_greatereq_than);
     MAKE_ENV_PROC(global_env, "=", proc_num_equal);
+    MAKE_ENV_PROC(global_env, "eq?", proc_equal);
 }
 
 void