Fix type hole in equal function w.r.t. COBJ.

* lib.c (equal): We cannot pass both arguments to the
left object's equal function just because both arguments are
COBJ. We must make sure they are using the same operations.
The equal functions blindly assume that both arguments are
objects of the same type, and cast the pointers.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 3752ace2..8bee41e5 100644
--- a/lib.c
+++ b/lib.c
@@ -2169,7 +2169,7 @@ val equal(val left, val right)
       return t;
     return nil;
   case COBJ:
-    if (type(right) == COBJ)
+    if (type(right) == COBJ && left->co.ops == right->co.ops)
       return left->co.ops->equal(left, right);
     return nil;
   }