simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix in CCVector.slice_seq

Browse source
This commit is contained in:
Simon Cruanes 2018-03-06 22:28:11 -06:00
parent 6b5735a318
commit 640ab72bb2
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCVector.ml
View file

@ -653,7 +653,7 @@ let to_seq_rev v k =
let slice_seq v start len = let slice_seq v start len =
assert (start >= 0 && len >= 0); assert (start >= 0 && len >= 0);
fun k -> fun k ->
assert (start+len < v.size); assert (start+len <= v.size);
for i = start to start+len-1 do for i = start to start+len-1 do
let x = Array.unsafe_get v.vec i in let x = Array.unsafe_get v.vec i in
k x k x
@ -661,6 +661,8 @@ let slice_seq v start len =
(*$T (*$T
slice_seq (of_list [0;1;2;3;4]) 1 3 |> CCList.of_seq = [1;2;3] slice_seq (of_list [0;1;2;3;4]) 1 3 |> CCList.of_seq = [1;2;3]
slice_seq (of_list [0;1;2;3;4]) 1 4 |> CCList.of_seq = [1;2;3;4]
slice_seq (of_list [0;1;2;3;4]) 0 5 |> CCList.of_seq = [0;1;2;3;4]
*) *)
let slice v = (v.vec, 0, v.size) let slice v = (v.vec, 0, v.size)