diff options
| author | barras | 2001-11-29 10:34:51 +0000 |
|---|---|---|
| committer | barras | 2001-11-29 10:34:51 +0000 |
| commit | e9d2a45987b0b4fcfa7ec4d14e35e9a7a0d62028 (patch) | |
| tree | db8ec6dd826e103f725ac023eb7b3cca2357b0e1 /kernel | |
| parent | 86952ac8ad1dba395cb4724ac0b4f54774448944 (diff) | |
reparation de Locate
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2247 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 2 | ||||
| -rw-r--r-- | kernel/names.mli | 1 |
2 files changed, 0 insertions, 3 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 7e9d9ecf33..a92adc6071 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -81,8 +81,6 @@ let string_of_path sp = if sl = [] then string_of_id id else (string_of_dirpath sl) ^ "." ^ (string_of_id id) -let pr_sp sp = [< 'sTR (string_of_path sp) >] - let sp_ord sp1 sp2 = let (p1,id1) = repr_path sp1 and (p2,id2) = repr_path sp2 in diff --git a/kernel/names.mli b/kernel/names.mli index 7f410149cc..08d2db3571 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -47,7 +47,6 @@ val repr_path : section_path -> dir_path * identifier (* Parsing and printing of section path as ["coq_root.module.id"] *) val string_of_path : section_path -> string -val pr_sp : section_path -> Pp.std_ppcmds module Spset : Set.S with type elt = section_path module Sppred : Predicate.S with type elt = section_path |