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

---
 library/globnames.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'library/globnames.ml')

diff --git a/library/globnames.ml b/library/globnames.ml
index cb9e4c872..1eb21b6eb 100644
--- a/library/globnames.ml
+++ b/library/globnames.ml
@@ -132,7 +132,8 @@ module ExtRefOrdered = struct
     match x, y with
       | TrueGlobal rx, TrueGlobal ry -> global_ord_user rx ry
       | SynDef knx, SynDef kny -> kn_ord knx kny
-      | _, _ -> Pervasives.compare x y
+      | TrueGlobal _, SynDef _ -> -1
+      | SynDef _, TrueGlobal _ -> 1
 end
 
 type global_reference_or_constr = 
-- 
cgit v1.2.3