From a14705a7a248fe789a0eb47095722c698797a227 Mon Sep 17 00:00:00 2001
From: Leonid Rozenberg <leonidr@gmail.com>
Date: Thu, 11 Feb 2016 13:33:00 -0500
Subject: [PATCH] Fix incorrect restriction

---
 src/lib/util/oml_probability.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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