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

1 files changed, 3 insertions, 1 deletions

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)