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/safe_typing.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/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 52fe3a135..e200e7bf3 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -272,6 +272,7 @@ let end_module l senv = | STRUCT(params,restype) -> (params,restype) in if l <> modinfo.label then error_incompatible_labels l modinfo.label; + if not (empty_context senv.env) then error_local_context None; let functorize_type = List.fold_right (fun (arg_id,arg_b) mtb -> MTBfunsig (arg_id,arg_b,mtb)) @@ -366,6 +367,7 @@ let end_modtype l senv = | SIG params -> params in if l <> modinfo.label then error_incompatible_labels l modinfo.label; + if not (empty_context senv.env) then error_local_context None; let res_tb = MTBsig (modinfo.msid, List.rev senv.revsign) in let mtb = List.fold_right |