From 662e6ae97f964b6e0e500c40a4b19b22a1bf3eff Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 5 Dec 2001 00:24:26 +0000
Subject: Rustine pour garder la compatibilité avec la 7.1 pour l'ordre des
 imports sans toutefois adopter l'ordre textuel

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2266 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/library.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/library/library.ml b/library/library.ml
index b35f7bbeef..970c2f6bf2 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -122,7 +122,9 @@ type module_t = {
 module CompUnitOrdered = 
   struct
     type t = dir_path
-    let compare = Pervasives.compare
+    let compare d1 d2 =
+      Pervasives.compare
+        (List.rev (repr_dirpath d1)) (List.rev (repr_dirpath d2))
   end
 
 module CompUnitmap = Map.Make(CompUnitOrdered)
-- 
cgit v1.2.3