From 2264eda279ffbbfee97f80cda56db19b8c359072 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 2 Jan 2018 03:08:53 -0800
Subject: seq_info: bugfix: wrong object tested obj_struct_p.
* lib.c (seq_info): The obj_struct_p test must be applied to
obj, not to cls, which is a symbol. Due to this bug, seq_info
would always report struct-based sequences as SEQ_NOTSEQ.
---
lib.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib.c b/lib.c
index 592e95e3..e5857e9c 100644
--- a/lib.c
+++ b/lib.c
@@ -302,7 +302,7 @@ seq_info_t seq_info(val obj)
ret.kind = SEQ_HASHLIKE;
} else if (cls == carray_s) {
ret.kind = SEQ_VECLIKE;
- } else if (obj_struct_p(cls)) {
+ } else if (obj_struct_p(obj)) {
if (maybe_slot(obj, length_s))
ret.kind = SEQ_VECLIKE;
if (maybe_slot(obj, car_s))
--
cgit v1.2.3