diff options
| author | letouzey | 2010-06-23 13:23:41 +0000 |
|---|---|---|
| committer | letouzey | 2010-06-23 13:23:41 +0000 |
| commit | e2218904bccbfca92fbf39ec55c0766874dfa5b8 (patch) | |
| tree | 331fae1575b98b7e84099dc6baab944832a75be6 /kernel/names.ml | |
| parent | a66ceb3af4332b546e051482f2d7dc5778c5d063 (diff) | |
Names: remove obsolete mod_self_id
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13190 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index d5f301f2f0..aef0039e1f 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -88,15 +88,6 @@ module Umap = Map.Make(struct type label = string -type mod_self_id = uniq_ident -let make_msid = make_uid -let repr_msid (n, id, dp) = (n, id, dp) -let debug_string_of_msid = debug_string_of_uid -let refresh_msid (_,s,dir) = make_uid dir s -let string_of_msid = string_of_uid -let id_of_msid (_,s,_) = s -let label_of_msid (_,s,_) = s - type mod_bound_id = uniq_ident let make_mbid = make_uid let repr_mbid (n, id, dp) = (n, id, dp) @@ -230,7 +221,6 @@ let default_module_name = "If you see this, it's a bug" let initial_dir = make_dirpath [default_module_name] -let initial_msid = (make_msid initial_dir "If you see this, it's a bug") let initial_path = MPfile initial_dir type variable = identifier |