From 0f1706ba8646812f612f67a5002a735fd5d1af74 Mon Sep 17 00:00:00 2001
From: sacerdot
Date: Wed, 29 Nov 2000 13:58:06 +0000
Subject: 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
---
 contrib/xml/xmlcommand.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml
index 8643d10e8d..b31acbf2cd 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)
 ;;
 
-- 
cgit v1.2.3