From e2218904bccbfca92fbf39ec55c0766874dfa5b8 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 23 Jun 2010 13:23:41 +0000
Subject: Names: remove obsolete mod_self_id

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13190 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/names.ml | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'kernel/names.ml')

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
-- 
cgit v1.2.3