diff options
| -rw-r--r-- | lib.c | 6 | ||||
| -rw-r--r-- | tests/012/struct.tl | 8 |
2 files changed, 11 insertions, 3 deletions
@@ -4231,7 +4231,7 @@ val equal(val left, val right) default: break; } - return nil; + break; case LCONS: switch (type(right)) { case CONS: @@ -4331,7 +4331,7 @@ val equal(val left, val right) default: return nil; } - return nil; + break; case BGNUM: if (type(right) == BGNUM) { if (mp_cmp(mp(left), mp(right)) == MP_EQ) @@ -4381,7 +4381,7 @@ val equal(val left, val right) if (type(right) == COBJ && left->co.ops == right->co.ops) return left->co.ops->equal(left, right); - return nil; + break; case CPTR: if (type(right) == CPTR && left->co.ops == right->co.ops) return left->co.ops->equal(left, right); diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 93979786..33431780 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -137,3 +137,11 @@ (test (equal #S(foo) #S(foo)) t) (test (equal #S(foo a 0) #S(foo a 1)) nil) (test (equal #S(bar a 3 b 3) #S(bar a 3 b 3)) t) + +(defstruct eqsub () + key + (:method equal (me) me.key)) + +(test (equal (new eqsub key '(1 2)) + (new eqsub key '(1 2))) + t) |