les sections ne sont plus stockées à l'envers dans les section paths

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@70 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 5 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index b471573f6b..af07ba426f 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -155,17 +155,16 @@ let dirpath sp = sp.dirpath
 
 let string_of_path_mind sp id =
   let (sl,_,k) = repr_path sp in
-  implode
-    (List.flatten 
-       (List.map (fun s -> ["#";s]) (List.rev (string_of_id id :: sl)))
-     @ [ "."; string_of_kind k ])
+  String.concat ""
+    ((List.flatten (List.map (fun s -> ["#";s]) sl))
+     @ [ "#"; string_of_id id; "."; string_of_kind k ])
     
 let string_of_path sp = string_of_path_mind sp sp.basename
 
 let path_of_string s =
   try
     let (sl,s,k) = parse_section_path s in
-    make_path (List.rev sl) (id_of_string s) (kind_of_string k)
+    make_path sl (id_of_string s) (kind_of_string k)
   with
     | Invalid_argument _ -> invalid_arg "path_of_string"