fix: __FUNCTION__ was only introduced in 4.12

This commit is contained in:
Fardale 2023-04-12 13:56:53 +02:00
parent ff3e838553
commit b4c164a8e4

View file

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