diff options
| author |  Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
|---|---|---|
| committer | Samuel Mimram <smimram@debian.org> | 2006-04-28 14:59:16 +0000 |
| commit | 3ef7797ef6fc605dfafb32523261fe1b023aeecb (patch) | |
| tree | ad89c6bb57ceee608fcba2bb3435b74e0f57919e /interp/modintern.ml | |
| parent | 018ee3b0c2be79eb81b1f65c3f3fa142d24129c8 (diff) | |
Imported Upstream version 8.0pl3+8.1alphaupstream/8.0pl3+8.1alpha
Diffstat (limited to 'interp/modintern.ml')
| -rw-r--r-- | interp/modintern.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index 0929119c..71bd431d 100644 --- a/interp/modintern.ml +++ b/interp/modintern.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: modintern.ml,v 1.2.2.1 2004/07/16 19:30:22 herbelin Exp $ *) +(* $Id: modintern.ml 6582 2005-01-13 14:28:56Z sacerdot $ *) open Pp open Util @@ -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 -> |