From 6946bbbf2390024b3ded7654814104e709cce755 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 18 Dec 2012 18:05:56 +0000
Subject: Modulification of mod_bound_id

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16098 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/extraction/common.ml  | 4 ++--
 plugins/extraction/miniml.mli | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'plugins')

diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml
index d8e489be74..286c11e5ae 100644
--- a/plugins/extraction/common.ml
+++ b/plugins/extraction/common.ml
@@ -343,9 +343,9 @@ let rec mp_renaming_fun mp = match mp with
       if lmp = [""] then (modfstlev_rename l)::lmp
       else (modular_rename Mod (Label.to_id l))::lmp
   | MPbound mbid ->
-      let s = modular_rename Mod (id_of_mbid mbid) in
+      let s = modular_rename Mod (MBId.to_id mbid) in
       if not (params_ren_mem mp) then [s]
-      else let i,_,_ = repr_mbid mbid in [s^"__"^string_of_int i]
+      else let i,_,_ = MBId.repr mbid in [s^"__"^string_of_int i]
   | MPfile _ ->
       assert (modular ()); (* see [at_toplevel] above *)
       assert (get_phase () = Pre);
diff --git a/plugins/extraction/miniml.mli b/plugins/extraction/miniml.mli
index 104a4c8657..5aaef254e9 100644
--- a/plugins/extraction/miniml.mli
+++ b/plugins/extraction/miniml.mli
@@ -149,7 +149,7 @@ type ml_specif =
 
 and ml_module_type =
   | MTident of module_path
-  | MTfunsig of mod_bound_id * ml_module_type * ml_module_type
+  | MTfunsig of MBId.t * ml_module_type * ml_module_type
   | MTsig of module_path * ml_module_sig
   | MTwith of ml_module_type * ml_with_declaration
 
@@ -166,7 +166,7 @@ type ml_structure_elem =
 
 and ml_module_expr =
   | MEident of module_path
-  | MEfunctor of mod_bound_id * ml_module_type * ml_module_expr
+  | MEfunctor of MBId.t * ml_module_type * ml_module_expr
   | MEstruct of module_path * ml_module_structure
   | MEapply of ml_module_expr * ml_module_expr
 
-- 
cgit v1.2.3