diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-22 01:14:50 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-29 14:59:29 +0100 |
| commit | c408e819ce39b27f0842c84b1b24c585ac5b6086 (patch) | |
| tree | a3dac227a23d098e70c7d74bd719f93f3cc6724c /printing/printmod.ml | |
| parent | 437f20f0a1c2717cd7baae52e2ab20750dd9d4fb (diff) | |
[lib] [api] Introduce record for `object_prefix`
This is a minor cleanup adding a record in a try to structure the
state living in `Lib`.
Diffstat (limited to 'printing/printmod.ml')
| -rw-r--r-- | printing/printmod.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/printing/printmod.ml b/printing/printmod.ml index 13a03e9b4..dd2e99d58 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -237,10 +237,10 @@ let print_kn locals kn = with Not_found -> print_modpath locals kn -let nametab_register_dir mp = +let nametab_register_dir obj_mp = let id = mk_fake_top () in - let dir = DirPath.make [id] in - Nametab.push_dir (Nametab.Until 1) dir (DirModule (dir,(mp,DirPath.empty))) + let obj_dir = DirPath.make [id] in + Nametab.push_dir (Nametab.Until 1) obj_dir (DirModule { obj_dir; obj_mp; obj_sec = DirPath.empty }) (** Nota: the [global_reference] we register in the nametab below might differ from internal ones, since we cannot recreate here |