nullify: handle carray and hashes.

* lib.c (nullify): Add carray and hash subcases into
the COBJ case.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 7614aab2..7d47a042 100644
--- a/lib.c
+++ b/lib.c
@@ -1011,6 +1011,10 @@ val nullify(val seq)
   case BUF:
     return if3(length_buf(seq) != zero, seq, nil);
   case COBJ:
+    if (seq->co.cls == carray_s)
+      return if3(length_carray(seq) != zero, seq, nil);
+    if (seq->co.cls == hash_s)
+      return if3(hash_count(seq) != zero, seq, nil);
     if (obj_struct_p(seq)) {
       val nullify_meth = maybe_slot(seq, nullify_s);
       if (nullify_meth)