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
---
 kernel/modops.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index 744da223a9..390461d5a0 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -67,6 +67,11 @@ let error_not_a_constant l =
 let error_with_incorrect l =
   error ("Incorrect constraint for label \""^(string_of_label l)^"\"")
 
+let error_a_generative_module_expected l =
+  error ("The module " ^ string_of_label l ^ " is not generative. Only " ^
+         "component of generative modules can be changed using the \"with\" " ^
+         "construct.")
+
 let error_local_context lo = 
   match lo with
       None -> 
-- 
cgit v1.2.3