We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 36bbb91 commit 6fafc58Copy full SHA for 6fafc58
testsuite/tests/lib-random/chi2.ml
@@ -96,7 +96,6 @@ let _ =
96
(let p = Int64.to_int 17766642568158577L in
97
fun () -> Random.full_int (256 * p) / p)
98
end;
99
-(* BACKPORT
100
let r1 = Random.split() in
101
let r2 = Random.split() in
102
let r3 = Random.State.split r1 in
@@ -106,4 +105,3 @@ let _ =
106
105
(fun () -> Random.State.bits r1 - Random.State.bits r2);
107
test "Random.split (r2-r3)"
108
(fun () -> Random.State.bits r2 - Random.State.bits r3)
109
-*)
0 commit comments