From a1beafc24fc01ec78fa5728a253c66ccb41a0a68 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 6 Dec 2000 13:11:35 +0000
Subject: 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
---
 parsing/ast.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/ast.ml b/parsing/ast.ml
index 13a9c0d41d..f541d77a61 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 *)
-- 
cgit v1.2.3