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

fix: fix Set.find_last_map on OCaml 4.03

Browse source
This commit is contained in:
Fardale 2023-03-31 12:14:03 +02:00
parent b6d99645ea
commit ea0e4473a8
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/CCSet.ml
View file

@ -156,7 +156,7 @@ module Make (O : Map.OrderedType) = struct
(* Use find_last which is linear time on OCaml < 4.05 *) (* Use find_last which is linear time on OCaml < 4.05 *)
let find_last_map f m = let find_last_map f m =
let res = ref None in let res = ref None in
let _ = S.find_last_opt let _ = find_last_opt
(fun x -> (fun x ->
match f x with match f x with
| None -> false | None -> false