Protection des tactiques contre l'utilisation sans le bon contexte de thories

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2745 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 2 insertions, 0 deletions

diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4
index 137d12528..7dc6d961f 100644
--- a/contrib/field/field.ml4
+++ b/contrib/field/field.ml4
@@ -128,6 +128,7 @@ END
 
 (* Guesses the type and calls Field_Gen with the right theory *)
 let field g =
+  Library.check_required_module ["Coq";"field";"Field"];
   let evc = project g
   and env = pf_env g in
   let ist = { evc=evc; env=env; lfun=[]; lmatch=[];
@@ -161,6 +162,7 @@ let guess_theory env evc = function
 
 (* Guesses the type and calls Field_Term with the right theory *)
 let field_term l g =
+  Library.check_required_module ["Coq";"field";"Field"];
   let env = (pf_env g)
   and evc = (project g) in
   let th = valueIn (VConstr (guess_theory env evc l))