CCArray: use raise_notrace instead of raise

This commit is contained in:
Fardale 2020-04-28 22:26:20 +02:00
parent c50672ff7a
commit 4267210da9

View file

@ -201,7 +201,7 @@ exception Found
let mem ?(eq = Stdlib.(=)) elt a =
try
Array.iter (fun e -> if eq e elt then raise Found) a;
Array.iter (fun e -> if eq e elt then raise_notrace Found) a;
false
with Found -> true