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 /vernac | |
| 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 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 088ba6552b..787134c173 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -188,7 +188,7 @@ let print_module qid = let open Nametab.GlobDirRef in let globdir = Nametab.locate_dir qid in match globdir with - DirModule { obj_dir; obj_mp; _ } -> + DirModule Nametab.{ obj_dir; obj_mp; _ } -> Printmod.print_module (Printmod.printable_body obj_dir) obj_mp | _ -> raise Not_found with |