diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-29 13:58:06 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-29 13:58:06 +0000 |
| commit | 0f1706ba8646812f612f67a5002a735fd5d1af74 (patch) | |
| tree | 329e7ee8957df6824e2f4810fc40d94a40ff403b /contrib | |
| parent | 07a27a457b19ccaaf318321502e7330d5507fbf2 (diff) | |
Modifications due to the new As option in AddPath and AddRecPath.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1026 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -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 8643d10e8..b31acbf2c 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -71,7 +71,7 @@ let could_have_namesakes o sp = (* namesake = omonimo in italian *) let uri_of_path sp tag = let module N = Names in let ext_of_sp sp = ext_of_tag tag in - "cic:/Coq/" ^ (String.concat "/" (N.wd_of_sp sp)) ^ "." ^ (ext_of_sp sp) + "cic:/" ^ (String.concat "/" (N.wd_of_sp sp)) ^ "." ^ (ext_of_sp sp) ;; let string_of_sort = @@ -720,7 +720,7 @@ let mkfilename dn sp ext = match dn with None -> None | Some basedir -> - Some (basedir ^ join_dirs basedir ("Coq"::(N.wd_of_sp sp)) ^ + Some (basedir ^ join_dirs basedir (N.wd_of_sp sp) ^ "." ^ ext) ;; |