From c7ff44ffe4439212f092525e8dafd825768d62ed Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 18 Oct 2022 16:56:57 -0400 Subject: [PATCH] fix --- tests/unit/t_iter.ml | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/tests/unit/t_iter.ml b/tests/unit/t_iter.ml index d305f2b..d90e6fc 100644 --- a/tests/unit/t_iter.ml +++ b/tests/unit/t_iter.ml @@ -304,15 +304,13 @@ let () = let i = Stdlib.min i j and j = Stdlib.max i j in i -- j |> to_rev_list = (int_range_by ~step:~-1 j i |> to_list)) -open struct - let array_for_all f a = - try - for i = 0 to Array.length a - 1 do - if not (f a.(i)) then raise Exit - done; - true - with Exit -> false -end +let array_for_all f a = + try + for i = 0 to Array.length a - 1 do + if not (f a.(i)) then raise Exit + done; + true + with Exit -> false let () = add_qcheck __LINE__