aboutsummaryrefslogtreecommitdiffhomepage
path: root/printing/printmod.ml
diff options
context:
space:
mode:
authorGravatar ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>2012-12-18 18:05:56 +0000
committerGravatar ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>2012-12-18 18:05:56 +0000
commit6946bbbf2390024b3ded7654814104e709cce755 (patch)
tree643429de27ef09026b937c18a55075eb49b11fee /printing/printmod.ml
parentaa37087b8e7151ea96321a11012c1064210ef4ea (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.ml8
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 ->