From e1e8eedfd994463db4a3db048117c4bcd9aaf416 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 6 Jun 2016 21:15:34 -0700
Subject: Handle sequence structs in length.

* lib.c (length): In COBJ case, handle
structures which have a car slot.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 29d11ef9..89782b25 100644
--- a/lib.c
+++ b/lib.c
@@ -8048,6 +8048,8 @@ val length(val seq)
   case COBJ:
     if (seq->co.cls == hash_s)
       return hash_count(seq);
+    if (structp(seq) && maybe_slot(seq, car_s))
+      return length_list(nullify(seq));
     /* fallthrough */
   default:
     type_mismatch(lit("length: ~s is not a sequence"), seq, nao);
-- 
cgit v1.2.3