diff options
Diffstat (limited to 'stdlib/random.ml')
| -rw-r--r-- | stdlib/random.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/random.ml b/stdlib/random.ml index 57b687b3d..33851b9b1 100644 --- a/stdlib/random.ml +++ b/stdlib/random.ml @@ -133,7 +133,7 @@ let rec sumsq v i0 i1 = let chisquare g n r = if n <= 10 * r then invalid_arg "chisquare"; - let f = Array.create r 0 in + let f = Array.make r 0 in for i = 1 to n do let t = g r in f.(t) <- f.(t) + 1 |