diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/libnames.ml | 10 | ||||
| -rw-r--r-- | library/libnames.mli | 3 |
2 files changed, 0 insertions, 13 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 = diff --git a/library/libnames.mli b/library/libnames.mli index b00d51dc5..ffb51ec0b 100644 --- a/library/libnames.mli +++ b/library/libnames.mli @@ -82,9 +82,6 @@ type extended_global_reference = | TrueGlobal of global_reference | SyntacticDef of kernel_name -val subst_ext : - substitution -> extended_global_reference -> extended_global_reference - (*s Temporary function to brutally form kernel names from section paths *) val encode_kn : dir_path -> identifier -> kernel_name |