From 503c61f72b4db674096470cee1cb89c1bf0c4d8f Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 13 Mar 2023 13:38:04 -0400
Subject: [PATCH] fix(vector): make sure `Vector.to_{seq,gen}` captures the
 length initially

---
 src/core/CCVector.ml | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/src/core/CCVector.ml b/src/core/CCVector.ml
index 62437e2d..1faa6c56 100644
--- a/src/core/CCVector.ml
+++ b/src/core/CCVector.ml
@@ -132,7 +132,7 @@ let resize_with v f size =
     v.size <- size
   ) else (
     ensure_assuming_not_empty_ v size;
-    let {size=cur_size; vec} = v in
+    let { size = cur_size; vec } = v in
     for i = cur_size to size - 1 do
       Array.unsafe_set vec i (f i)
     done;
@@ -582,22 +582,24 @@ let to_iter_rev v k =
   done
 
 let to_seq v =
+  let { size; vec } = v in
   let rec aux i () =
-    if i >= size v then
+    if i >= size then
       Seq.Nil
     else
-      Seq.Cons (v.vec.(i), aux (i + 1))
+      Seq.Cons (vec.(i), aux (i + 1))
   in
   aux 0
 
 let to_seq_rev v =
+  let { size; vec } = v in
   let rec aux i () =
-    if i < 0 || i > size v then
+    if i < 0 then
       Seq.Nil
     else
-      Seq.Cons (v.vec.(i), aux (i - 1))
+      Seq.Cons (vec.(i), aux (i - 1))
   in
-  aux (size v - 1)
+  aux (size - 1)
 
 let slice_iter v start len =
   assert (start >= 0 && len >= 0);
@@ -655,10 +657,11 @@ let of_gen ?(init = create ()) g =
   aux g
 
 let to_gen v =
+  let { size; vec } = v in
   let i = ref 0 in
   fun () ->
-    if !i < v.size then (
-      let x = v.vec.(!i) in
+    if !i < size then (
+      let x = vec.(!i) in
       incr i;
       Some x
     ) else