From ec066c53867c1d75f67a57a89785bee59eba4d99 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 26 Sep 2013 15:29:30 +0200
Subject: [PATCH] bugfixes in Gen.of_array

---
 gen.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gen.ml b/gen.ml
index 281cbe27..61373034 100644
--- a/gen.ml
+++ b/gen.ml
@@ -851,12 +851,12 @@ let to_array enum =
 
 let of_array ?(start=0) ?len a =
   let len = match len with
-  | None -> Array.length a
-  | Some n -> assert (n <= Array.length a); n in
+  | None -> Array.length a - start
+  | Some n -> assert (n + start < Array.length a); n in
   fun () ->
     let i = ref start in
     fun () ->
-      if !i >= len
+      if !i >= start + len
         then raise EOG
         else (let x = a.(!i) in incr i; x)