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

missing compat functions

Browse source
This commit is contained in:
Simon Cruanes 2017-12-24 17:10:02 +01:00
parent f6b3a7addf
commit a249f2ac0b
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/core/CCList.ml
View file

@ -54,6 +54,16 @@ let rec compare_length_with l n = match l, n with
(Pervasives.compare (length l)n))
*)
let rec assoc_opt x = function
| [] -> None
| (y,v) :: _ when Pervasives.(=) x y -> Some v
| _ :: tail -> assoc_opt x tail
let rec assq_opt x = function
| [] -> None
| (y,v) :: _ when Pervasives.(==) x y -> Some v
| _ :: tail -> assq_opt x tail
(* end of backport *)
include List