From ea8a09f18472f4a6123f6080ed88043062347335 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 7 May 2018 20:58:47 -0400
Subject: [PATCH] Fix copy&paste error

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index 1ec6ceab..b5f2b06b 100644
--- a/runtime.c
+++ b/runtime.c
@@ -653,7 +653,7 @@ int equal(object x, object y)
   //       ((integer_type *) x)->value == ((integer_type *) y)->value);
   case complex_num_tag:
     return (is_object_type(y) &&
-            type_of(y) == double_tag &&
+            type_of(y) == complex_num_tag &&
             ((complex_num_type *) x)->value == ((complex_num_type *) y)->value);
 
   default: