diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-23 14:44:08 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-05-23 14:44:08 +0000 |
| commit | 29e1c97ab17b852f1eba69dc1d9463f59930eef2 (patch) | |
| tree | 437d0e3bdead403096eea47be76bb10786fd61f7 | |
| parent | c8b444fa1b9e6a3ba02f895a68e2e88612a6c04f (diff) | |
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
| -rw-r--r-- | contrib/xml/cic2acic.ml | 4 | ||||
| -rw-r--r-- | library/lib.ml | 4 | ||||
| -rw-r--r-- | library/lib.mli | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/contrib/xml/cic2acic.ml b/contrib/xml/cic2acic.ml index caace5697..f217b0371 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 bc01c4776..ca054c8d6 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 500d01e2c..6552cda6a 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 *) |