2ème bug de traduction des Path

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

1 files changed, 2 insertions, 2 deletions

diff --git a/parsing/ast.ml b/parsing/ast.ml
index 13a9c0d41..f541d77a6 100755
--- a/parsing/ast.ml
+++ b/parsing/ast.ml
@@ -47,9 +47,9 @@ let path_section loc sp =
   Coqast.Path(loc, string_of_id bn :: (List.rev sl), string_of_kind pk)
 
 let section_path sl k =
-  match List.rev sl with
+  match sl with
     | s::pa -> 
-	make_path pa (id_of_string s) (kind_of_string k)
+	make_path (List.rev pa) (id_of_string s) (kind_of_string k)
     | [] -> invalid_arg "section_path"
 
 (* ast destructors *)