From 4749bfa4443f5637da4b97fd731baf0dd2c92f13 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 25 Jun 2019 07:35:54 -0700
Subject: empty: handle carray.

* lib.c (empty): Add carray sub case to COBJ case.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 7d47a042..a28d90c5 100644
--- a/lib.c
+++ b/lib.c
@@ -9989,6 +9989,8 @@ val empty(val seq)
   case COBJ:
     if (seq->co.cls == hash_s)
       return eq(hash_count(seq), zero);
+    if (seq->co.cls == carray_s)
+      return eq(length_carray(seq), zero);
     if (obj_struct_p(seq)) {
       val length_meth = maybe_slot(seq, length_s);
       val nullify_meth = if2(nilp(length_meth), maybe_slot(seq, nullify_s));
-- 
cgit v1.2.3