seq-iter: gc issue.

* lib.c (seq_iter_mark): The default case checks the type of
the wrong object. The seq_iter object is necessarily a cobjp,
and necessarily not a obj_struct_p so the test is always
false, and we do not call gc_mark(si->ui.iter). The check must
be applied to the object being iterated.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 2f0f9859..82869026 100644
--- a/lib.c
+++ b/lib.c
@@ -903,7 +903,7 @@ static void seq_iter_mark(val seq_iter)
     gc_mark(si->ui.iter);
     break;
   default:
-    if (cobjp(seq_iter) && obj_struct_p(seq_iter))
+    if (cobjp(si->inf.obj) && obj_struct_p(si->inf.obj))
       gc_mark(si->ui.iter);
     break;
   }