diff options
author | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-18 11:26:53 +0000 |
---|---|---|
committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-18 11:26:53 +0000 |
commit | 6754338f5629938f30901e29c10acfaa58ca9174 (patch) | |
tree | a6ed790b200a1c2868adc802a813b1ed450ea279 /kernel/modops.ml | |
parent | 52c4125fbf1702e256991a1cc069bf3a8dd34768 (diff) |
Contexte locale non-vide interdit a la fin d'un module ou module type
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3453 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/modops.ml')
-rw-r--r-- | kernel/modops.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index cd8cbe1ee..ec25459a9 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -66,6 +66,14 @@ let error_not_a_constant l = let error_with_incorrect l = error ("Incorrect constraint for label \""^(string_of_label l)^"\"") +let error_local_context lo = + match lo with + None -> + error ("The local context is not empty.") + | (Some l) -> + error ("The local context of the component "^ + (string_of_label l)^" is not empty") + let rec scrape_modtype env = function | MTBident kn -> scrape_modtype env (lookup_modtype kn env) | mtb -> mtb |