diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-01-13 14:28:56 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-01-13 14:28:56 +0000 |
| commit | 0224b036502016e9bd4e8b683af458248fdac4a9 (patch) | |
| tree | 6edb63dd6839906dc95c1c1c5ef29a25e1c67673 /interp | |
| parent | 204ca2560751eaa0fc00f6d5235fc81236855f1b (diff) | |
Construct "T with (Definition|Module) id := c" generalized to
"T with (Definition|Module) M1.M2....Mn.id := c" (in the ML style).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6582 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/modintern.ml | 8 | ||||
| -rw-r--r-- | interp/topconstr.ml | 4 | ||||
| -rw-r--r-- | interp/topconstr.mli | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index 56fc8cb5e..f077bea93 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 -> diff --git a/interp/topconstr.ml b/interp/topconstr.ml index f18be16cc..9c155f854 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -720,8 +720,8 @@ let rec replace_vars_constr_expr l = function (* Concrete syntax for modules and modules types *) type with_declaration_ast = - | CWith_Module of identifier located * qualid located - | CWith_Definition of identifier located * constr_expr + | CWith_Module of identifier list located * qualid located + | CWith_Definition of identifier list located * constr_expr type module_type_ast = | CMTEident of qualid located diff --git a/interp/topconstr.mli b/interp/topconstr.mli index 9b9dd80dc..4cfa0a0da 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -159,8 +159,8 @@ val map_constr_expr_with_binders : (* Concrete syntax for modules and modules types *) type with_declaration_ast = - | CWith_Module of identifier located * qualid located - | CWith_Definition of identifier located * constr_expr + | CWith_Module of identifier list located * qualid located + | CWith_Definition of identifier list located * constr_expr type module_type_ast = | CMTEident of qualid located |