From 29e1c97ab17b852f1eba69dc1d9463f59930eef2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 23 May 2006 14:44:08 +0000
Subject: Clarification role de library_part : renommage en remove_section_part

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8848 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/xml/cic2acic.ml | 4 ++--
 library/lib.ml          | 4 ++--
 library/lib.mli         | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/contrib/xml/cic2acic.ml b/contrib/xml/cic2acic.ml
index caace56972..f217b03719 100644
--- a/contrib/xml/cic2acic.ml
+++ b/contrib/xml/cic2acic.ml
@@ -167,10 +167,10 @@ let token_list_of_kernel_name tag =
        N.id_of_label (N.label kn), Lib.cwd ()
    | Constant con -> 
        N.id_of_label (N.con_label con),
-       Lib.library_part (LN.ConstRef con)
+       Lib.remove_section_part (LN.ConstRef con)
    | Inductive kn ->
        N.id_of_label (N.label kn),
-       Lib.library_part (LN.IndRef (kn,0))
+       Lib.remove_section_part (LN.IndRef (kn,0))
  in
  token_list_of_path dir id (etag_of_tag tag)
 ;;
diff --git a/library/lib.ml b/library/lib.ml
index bc01c4776d..ca054c8d6c 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -624,12 +624,12 @@ let reset_initial () =
 
 (* Misc *)
 
-let library_part ref =
+let remove_section_part ref =
   let sp = Nametab.sp_of_global ref in
   let dir,_ = repr_path sp in
   match ref with
   | VarRef id -> 
-      anomaly "library_part not supported on local variables"
+      anomaly "remove_section_part not supported on local variables"
   | _ ->
       if is_dirpath_prefix_of dir (cwd ()) then
         (* Not yet (fully) discharged *)
diff --git a/library/lib.mli b/library/lib.mli
index 500d01e2cd..6552cda6a8 100644
--- a/library/lib.mli
+++ b/library/lib.mli
@@ -122,7 +122,7 @@ val end_compilation : dir_path -> object_prefix * library_segment
 val library_dp : unit -> dir_path
 
 (* Extract the library part of a name even if in a section *)
-val library_part : global_reference -> dir_path
+val remove_section_part : global_reference -> dir_path
 
 (*s Sections *)
 
-- 
cgit v1.2.3