missing char in Gen.char (close #23)

c-cube · c-cube · commit 14d4c3c05c97 · 2017-01-20T13:51:36.000+01:00
diff --git a/src/QCheck.ml b/src/QCheck.ml
@@ -198,7 +198,7 @@ module Gen = struct
 
   let quad g1 g2 g3 g4 st = (g1 st, g2 st, g3 st, g4 st)
 
-  let char st = char_of_int (RS.int st 255)
+  let char st = char_of_int (RS.int st 256)
 
   let printable_chars =
     let l = 126-32+1 in
