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: __FUNCTION__ was only introduced in 4.12

Browse source
This commit is contained in:
Fardale 2023-04-12 13:56:53 +02:00
parent ff3e838553
commit b4c164a8e4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/CCArray.ml
View file

@ -163,7 +163,7 @@ let max cmp a =
let max_exn cmp a = let max_exn cmp a =
match max cmp a with match max cmp a with
| None -> invalid_arg __FUNCTION__ | None -> invalid_arg "CCArray.max_exn"
| Some elt -> elt | Some elt -> elt
@ -177,7 +177,7 @@ let argmax cmp a =
let argmax_exn cmp a = let argmax_exn cmp a =
match argmax cmp a with match argmax cmp a with
| None -> invalid_arg __FUNCTION__ | None -> invalid_arg "CCArray.argmax_exn"
| Some elt -> elt | Some elt -> elt
let min cmp a = let min cmp a =
@ -190,7 +190,7 @@ let min cmp a =
let min_exn cmp a = let min_exn cmp a =
match min cmp a with match min cmp a with
| None -> invalid_arg __FUNCTION__ | None -> invalid_arg "CCArray.min_exn"
| Some elt -> elt | Some elt -> elt
@ -204,7 +204,7 @@ let argmin cmp a =
let argmin_exn cmp a = let argmin_exn cmp a =
match argmin cmp a with match argmin cmp a with
| None -> invalid_arg __FUNCTION__ | None -> invalid_arg "CCArray.argmin_exn"
| Some elt -> elt | Some elt -> elt
let filter_map f a = let filter_map f a =