diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-02 15:10:46 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-02 15:10:46 +0000 |
commit | c1de637b6c9f5d074e534bf75cf5e407d95be7ff (patch) | |
tree | 9b0823538dfab109a2efce1e5876163eb4896837 /checker/safe_typing.ml | |
parent | 3e314a8811fbc94d46247da9969432d94ed5eff0 (diff) |
fixed bug #1927 + univ constraints (module cstrs include cstrs of its subcomponents)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11348 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/safe_typing.ml')
-rw-r--r-- | checker/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/safe_typing.ml b/checker/safe_typing.ml index 4b156e7ec..d57799237 100644 --- a/checker/safe_typing.ml +++ b/checker/safe_typing.ml @@ -31,7 +31,7 @@ let set_engagement c = let full_add_module dp mb digest = let env = !genv in let mp = MPfile dp in - let env = add_module_constraints env mb in + let env = add_constraints mb.mod_constraints env in let env = Modops.add_module mp mb env in genv := add_digest env dp digest @@ -121,7 +121,7 @@ let import file (dp,mb,depends,engmt as vo) digest = let env = !genv in check_imports msg_warning dp env depends; check_engagement env engmt; - check_module env mb; + check_module (add_constraints mb.mod_constraints env) mb; stamp_library file digest; (* We drop proofs once checked *) (* let mb = lighten_module mb in*) |