From 87b510e5b0f363724eae5db9f177f167a3586015 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Sat, 1 Mar 2014 18:26:26 +0100
Subject: Fixing pervasive comparisons

---
 plugins/rtauto/proof_search.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/rtauto')

diff --git a/plugins/rtauto/proof_search.ml b/plugins/rtauto/proof_search.ml
index 101fe288b..1ed9b8269 100644
--- a/plugins/rtauto/proof_search.ml
+++ b/plugins/rtauto/proof_search.ml
@@ -69,7 +69,7 @@ module FOrd = struct
     | Bot, Bot -> 0
     | Bot, _ -> -1
     | Atom _, Bot -> 1
-    | Atom a1, Atom a2 -> Pervasives.compare a1 a2
+    | Atom a1, Atom a2 -> Int.compare a1 a2
     | Atom _, _ -> -1
     | Arrow _, (Bot | Atom _) -> 1
     | Arrow (f1, g1), Arrow (f2, g2) ->
-- 
cgit v1.2.3