diff options
| author |  bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-18 21:59:26 +0000 |
|---|---|---|
| committer | bertot <bertot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-12-18 21:59:26 +0000 |
| commit | 0f412d6ac5338e66ceee5f46acde922e4bb154be (patch) | |
| tree | d10835adc53ca07b622c7779c6002a8188254042 /contrib | |
| parent | ebfec6cf6af367f6f6e2aa54c6ad4aa37711de3c (diff) | |
the function Ctast.section_path was wrong. It performed two reverse
operations on lists, which was equivalent to doing nothing.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2320 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/interface/ctast.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/ctast.ml b/contrib/interface/ctast.ml index b356f5b28..c5611f985 100644 --- a/contrib/interface/ctast.ml +++ b/contrib/interface/ctast.ml @@ -18,7 +18,7 @@ let section_path sl = match List.rev sl with | s::pa -> make_path - (make_dirpath (List.rev (List.map id_of_string pa))) + (make_dirpath (List.map id_of_string pa)) (id_of_string s) | [] -> invalid_arg "section_path" |