simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 12:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

CCArray: use raise_notrace instead of raise

Browse source
This commit is contained in:
Fardale 2020-04-28 22:26:20 +02:00
parent c50672ff7a
commit 4267210da9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/CCArray.ml
View file

@ -201,7 +201,7 @@ exception Found
let mem ?(eq = Stdlib.(=)) elt a = let mem ?(eq = Stdlib.(=)) elt a =
try 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 false
with Found -> true with Found -> true