diff options
| author | Emilio Jesus Gallego Arias | 2018-10-31 09:55:57 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-10-31 12:58:05 +0100 |
| commit | 813c4f65e80926cb4f1eadf1a6eeda6983b71a2b (patch) | |
| tree | d54ac23b2968095ac66942586110ab19784c94ce /library/libobject.ml | |
| parent | 0adc2073cf3e7bd3b2d9ee2cdf75e16e3a243c44 (diff) | |
[nametab] Move `object_prefix` to `Nametab`.
We move `object_prefix` to `Nametab`. This highlights the coupling of
`Lib` and `Nametab` wrt naming.
This also thins `Libname`, which IMHO is a good thing as we are
talking about "local, internal" naming here.
Diffstat (limited to 'library/libobject.ml')
| -rw-r--r-- | library/libobject.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/library/libobject.ml b/library/libobject.ml index ea19fbb90b..c0766e6a91 100644 --- a/library/libobject.ml +++ b/library/libobject.ml @@ -8,7 +8,6 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -open Libnames open Pp module Dyn = Dyn.Make () @@ -18,10 +17,6 @@ type 'a substitutivity = type object_name = Libnames.full_path * Names.KerName.t -(* let make_oname (dirpath,(mp,dir)) id = *) -let make_oname { obj_dir; obj_mp } id = - Names.(make_path obj_dir id, KerName.make obj_mp (Label.of_id id)) - type 'a object_declaration = { object_name : string; cache_function : object_name * 'a -> unit; |