diff options
| author | sacerdot | 2004-03-26 21:08:31 +0000 |
|---|---|---|
| committer | sacerdot | 2004-03-26 21:08:31 +0000 |
| commit | f0059e376230a40567374d4a00875ff00a6e6cc7 (patch) | |
| tree | f3f4dda4deeb8a370e211204c485066c4b2d956f | |
| parent | 69395e449f16e78e00be27b56ef55a3b19464ba2 (diff) | |
Theory file for file A.B.C.v is put in A/B/C.theory.xml.
It was put in file A/B/C/C.theory.xml.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5581 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index da977a18b9..3cb16a97a6 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -227,8 +227,8 @@ let theory_filename xml_library_root = | Some xml_library_root' -> let toks = List.map N.string_of_id (N.repr_dirpath (Lib.library_dp ())) in let hd = List.hd toks in - (* theory from A/B/C/F.v goes into A/B/C/F/F.theory *) - let alltoks = List.rev (hd :: toks) in + (* theory from A/B/C/F.v goes into A/B/C/F.theory *) + let alltoks = List.rev toks in Some (join_dirs xml_library_root' alltoks ^ ".theory") let print_object uri obj sigma proof_tree_infos filename = |