diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 2 | ||||
| -rw-r--r-- | printing/printmod.ml | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 24b0dc6cde..b78e73e486 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -260,7 +260,7 @@ let pr_module_vardecls pr_c (export,idl,(mty,inl)) = let lib_dir = Lib.library_dp() in List.iter (fun (_,id) -> Declaremods.process_module_bindings [id] - [make_mbid lib_dir id, + [MBId.make lib_dir id, (Modintern.interp_modtype (Global.env()) mty, inl)]) idl; (* Builds the stream *) spc() ++ diff --git a/printing/printmod.ml b/printing/printmod.ml index 039d3ec43d..2b0f458c1e 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -155,11 +155,11 @@ let rec print_modtype env mp locals mty = let env' = Option.map (Modops.add_module (Modops.module_body_of_type mp1 mtb1)) env in let seb1 = Option.default mtb1.typ_expr mtb1.typ_expr_alg in - let locals' = (mbid, get_new_id locals (id_of_mbid mbid))::locals + let locals' = (mbid, get_new_id locals (MBId.to_id mbid))::locals in (try Declaremods.process_module_seb_binding mbid seb1 with _ -> ()); hov 2 (str "Funsig" ++ spc () ++ str "(" ++ - pr_id (id_of_mbid mbid) ++ str ":" ++ + pr_id (MBId.to_id mbid) ++ str ":" ++ print_modtype env mp1 locals seb1 ++ str ")" ++ spc() ++ print_modtype env' mp locals' mtb2) | SEBstruct (sign) -> @@ -190,9 +190,9 @@ let rec print_modexpr env mp locals mexpr = match mexpr with let env' = Option.map (Modops.add_module (Modops.module_body_of_type mp' mty)) env in let typ = Option.default mty.typ_expr mty.typ_expr_alg in - let locals' = (mbid, get_new_id locals (id_of_mbid mbid))::locals in + let locals' = (mbid, get_new_id locals (MBId.to_id mbid))::locals in (try Declaremods.process_module_seb_binding mbid typ with _ -> ()); - hov 2 (str "Functor" ++ spc() ++ str"(" ++ pr_id(id_of_mbid mbid) ++ + hov 2 (str "Functor" ++ spc() ++ str"(" ++ pr_id(MBId.to_id mbid) ++ str ":" ++ print_modtype env mp' locals typ ++ str ")" ++ spc () ++ print_modexpr env' mp locals' mexpr) | SEBstruct struc -> |