From b32fd0b6f998ce4322ddf35399047f938c22717c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 8 Jul 2020 18:16:40 -0700 Subject: iter_item: bugfix/omission. * lib.c (iter_item): Fix neglect in this function to check for an oop iterator and use its iter-item method. --- lib.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib.c b/lib.c index 28c29285..c1be0e29 100644 --- a/lib.c +++ b/lib.c @@ -1027,6 +1027,11 @@ val iter_item(val iter) val item = nil; return if2(seq_peek(si, &item), item); } + if (obj_struct_p(iter)) { + val iter_item_meth = get_special_slot(iter, iter_item_m); + if (iter_item_meth) + return funcall1(iter_item_meth, iter); + } /* fallthrough */ default: return car(iter); -- cgit v1.2.3