diff options
-rw-r--r-- | kernel/names.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index b471573f6..af07ba426 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" |