diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 18:05:56 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 18:05:56 +0000 |
commit | 6946bbbf2390024b3ded7654814104e709cce755 (patch) | |
tree | 643429de27ef09026b937c18a55075eb49b11fee /printing/printmod.ml | |
parent | aa37087b8e7151ea96321a11012c1064210ef4ea (diff) |
Modulification of mod_bound_id
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16098 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/printmod.ml')
-rw-r--r-- | printing/printmod.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/printing/printmod.ml b/printing/printmod.ml index 039d3ec43..2b0f458c1 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 -> |