1 files changed, 36 insertions, 0 deletions

diff --git a/src/bootstrap/objects.c b/src/bootstrap/objects.c
index 0361ae8..497a04d 100644
--- a/src/bootstrap/objects.c
+++ b/src/bootstrap/objects.c
@@ -197,3 +197,39 @@ display(Object *root) {
     }
     return;
 }
+
+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;
+        default: {
+            return a == b;
+        } break;
+    }
+    return true;
+}