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 /plugins | |
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 'plugins')
-rw-r--r-- | plugins/extraction/common.ml | 4 | ||||
-rw-r--r-- | plugins/extraction/miniml.mli | 4 |
2 files changed, 4 insertions, 4 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); diff --git a/plugins/extraction/miniml.mli b/plugins/extraction/miniml.mli index 104a4c865..5aaef254e 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 |