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(list): support 4.03

Browse source
This commit is contained in:
favonia 2021-05-22 20:43:35 -05:00
parent 8c197da02c
commit de7f445207
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/CCList.ml
View file

@ -815,7 +815,7 @@ let sorted_remove ~cmp ~key l =
Q.(pair small_int (list small_int)) (fun (key,l) -> \ Q.(pair small_int (list small_int)) (fun (key,l) -> \
let l = List.sort Stdlib.compare l in \ let l = List.sort Stdlib.compare l in \
let l' = sorted_remove ~cmp:CCInt.compare ~key l in \ let l' = sorted_remove ~cmp:CCInt.compare ~key l in \
List.length l' = List.length l - count (Int.equal key) l) List.length l' = List.length l - count (CCInt.equal key) l)
Q.(pair small_int (list small_int)) (fun (key,l) -> \ Q.(pair small_int (list small_int)) (fun (key,l) -> \
let l = List.sort Stdlib.compare l in \ let l = List.sort Stdlib.compare l in \
not (List.mem key (sorted_remove ~cmp:CCInt.compare ~key l))) not (List.mem key (sorted_remove ~cmp:CCInt.compare ~key l)))