From 0224b036502016e9bd4e8b683af458248fdac4a9 Mon Sep 17 00:00:00 2001
From: sacerdot
Date: Thu, 13 Jan 2005 14:28:56 +0000
Subject: 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
---
 interp/modintern.ml  | 8 ++++----
 interp/topconstr.ml  | 4 ++--
 interp/topconstr.mli | 4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'interp')

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 ->
diff --git a/interp/topconstr.ml b/interp/topconstr.ml
index f18be16cc7..9c155f854b 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 9b9dd80dc4..4cfa0a0da7 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
-- 
cgit v1.2.3