Modulification of mod_bound_id

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16098 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 2 deletions

diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml
index d8e489be7..286c11e5a 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);