diff options
| -rwxr-xr-x | parsing/ast.ml | 4 |
1 files 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 *) |