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

bugfixes in Gen.of_array

Browse source
This commit is contained in:
Simon Cruanes 2013-09-26 15:29:30 +02:00
parent 939e0b96d0
commit ec066c5386
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gen.ml
View file

@ -851,12 +851,12 @@ let to_array enum =
let of_array ?(start=0) ?len a = let of_array ?(start=0) ?len a =
let len = match len with let len = match len with
| None -> Array.length a | None -> Array.length a - start
| Some n -> assert (n <= Array.length a); n in | Some n -> assert (n + start < Array.length a); n in
fun () -> fun () ->
let i = ref start in let i = ref start in
fun () -> fun () ->
if !i >= len if !i >= start + len
then raise EOG then raise EOG
else (let x = a.(!i) in incr i; x) else (let x = a.(!i) in incr i; x)