1 files changed, 0 insertions, 43 deletions

diff --git a/src/bootstrap/environment.c b/src/bootstrap/environment.c
index 1bbe844..0a6a866 100644
--- a/src/bootstrap/environment.c
+++ b/src/bootstrap/environment.c
@@ -1,7 +1,3 @@
-//
-// Environment.
-//
-
 typedef struct EnvEntry {
     Object *symbol;
     Object *value;
@@ -50,45 +46,6 @@ env_add_symbol(Environment *env, Object *symbol, Object *value) {
     env->buf[env->size++] = (EnvEntry){symbol, value};
 }
 
-bool
-obj_eq(Object *a, Object* b) {
-    if (a->type != b->type) {
-        return false;
-    }
-    switch (a->type) {
-        case OBJ_TYPE_FIXNUM: {
-            return a->fixnum == b->fixnum;
-        } break;
-        case OBJ_TYPE_STRING: {
-            if (a->string_n != b->string_n) {
-                return false;
-            }
-            for (size_t i = 0; i < a->string_n; i++) {
-                if (a->string[i] != b->string[i]) {
-                    return false;
-                }
-            }
-        } break;
-        case OBJ_TYPE_SYMBOL: {
-            if (a->symbol_n != b->symbol_n) {
-                return false;
-            }
-            for (size_t i = 0; i < a->symbol_n; i++) {
-                if (a->symbol[i] != b->symbol[i]) {
-                    return false;
-                }
-            }
-        } break;
-        case OBJ_TYPE_PAIR: {
-            // TODO: needs evaluation of parameters...
-        } break;
-        default: {
-            return a == b;
-        } break;
-    }
-    return true;
-}
-
 Object *
 env_lookup(Environment *env, Object *symbol) {
     while (env != NULL) {