diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 16:17:00 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 16:17:00 +0100 |
| commit | c5f6ee866bef4ff924693302ea98fec2b4742b9b (patch) | |
| tree | 66e728c5cf1fa3e59b1a48043e99a9995f7a1e2e /printing/printmod.ml | |
| parent | 0bb126dae41b410fdf4f6531024c64cac20dac06 (diff) | |
| parent | c408e819ce39b27f0842c84b1b24c585ac5b6086 (diff) | |
Merge PR #6244: [lib] [api] Introduce record for `object_prefix`
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 c34543bbd..05292b06b 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -245,10 +245,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 |