diff --git a/src/lib/util/oml_probability.ml b/src/lib/util/oml_probability.ml index 40e38b6..0283e54 100644 --- a/src/lib/util/oml_probability.ml +++ b/src/lib/util/oml_probability.ml @@ -4,7 +4,7 @@ module A = Oml_array type t = float -let restrict x = max 1. (min 0. x) +let restrict x = min 1. (max 0. x) let check x = if x > 1. then None else if x < 0. then None else Some x