diff options
Diffstat (limited to 'interp/modintern.ml')
| -rw-r--r-- | interp/modintern.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index 56fc8cb5ef..f077bea93d 100644 --- a/interp/modintern.ml +++ b/interp/modintern.ml @@ -79,10 +79,10 @@ let lookup_modtype (loc,qid) = Modops.error_not_a_modtype_loc loc (string_of_qualid qid) let transl_with_decl env = function - | CWith_Module ((_,id),qid) -> - With_Module (id,lookup_module qid) - | CWith_Definition ((_,id),c) -> - With_Definition (id,interp_constr Evd.empty env c) + | CWith_Module ((_,fqid),qid) -> + With_Module (fqid,lookup_module qid) + | CWith_Definition ((_,fqid),c) -> + With_Definition (fqid,interp_constr Evd.empty env c) let rec interp_modtype env = function | CMTEident qid -> |