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
---
 contrib/interface/vtp.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/interface/vtp.ml')

diff --git a/contrib/interface/vtp.ml b/contrib/interface/vtp.ml
index ebad140808..ff67c14859 100644
--- a/contrib/interface/vtp.ml
+++ b/contrib/interface/vtp.ml
@@ -1157,12 +1157,12 @@ and fMODULE_TYPE = function
 | CT_coerce_ID_to_MODULE_TYPE x -> fID x
 | CT_module_type_with_def(x1, x2, x3) ->
    fMODULE_TYPE x1;
-   fID x2;
+   fID_LIST x2;
    fFORMULA x3;
    fNODE "module_type_with_def" 3
 | CT_module_type_with_mod(x1, x2, x3) ->
    fMODULE_TYPE x1;
-   fID x2;
+   fID_LIST x2;
    fID x3;
    fNODE "module_type_with_mod" 3
 and fMODULE_TYPE_CHECK = function
-- 
cgit v1.2.3