diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-09 15:24:39 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-09 15:24:39 +0000 |
| commit | 0a94199867a80d5c9ee6aa52668b1c3b1dbb2cfa (patch) | |
| tree | 20a5deb6e906c841cc043f3b22eb6cfd77cc4444 /library/libnames.ml | |
| parent | 4a72239d22a48ee345669d52df4b8b344fffb931 (diff) | |
code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6288 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index 171e2b3b5..17fd50b7f 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -188,16 +188,6 @@ type extended_global_reference = | TrueGlobal of global_reference | SyntacticDef of kernel_name -let subst_ext subst glref = match glref with - | TrueGlobal ref -> - let ref' = subst_global subst ref in - if ref' == ref then glref else - TrueGlobal ref' - | SyntacticDef kn -> - let kn' = subst_kn subst kn in - if kn' == kn then glref else - SyntacticDef kn' - let encode_kn dir id = make_kn (MPfile dir) empty_dirpath (label_of_id id) let decode_kn kn = |