diff options
| author | herbelin | 2005-03-19 11:25:47 +0000 |
|---|---|---|
| committer | herbelin | 2005-03-19 11:25:47 +0000 |
| commit | db306c9d7f91cffe5720b7645e447a486093f90c (patch) | |
| tree | 1f0c087a1dce1f5fb9988b520fd8f476e79c5e82 /proofs/logic.ml | |
| parent | dd669a4b77452690abb3e52c8e66f6510885374b (diff) | |
Correction erreur grossière de non restauration d'état en cas de retour exceptionnel; suppression without_check
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6863 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 8aa732fe34..ab5b426339 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -60,21 +60,8 @@ let catchable_exception = function (* Tells if the refiner should check that the submitted rules do not produce invalid subgoals *) let check = ref false +let with_check = Options.with_option check -let without_check tac gl = - let c = !check in - check := false; - let r = tac gl in - check := c; - r - -let with_check tac gl = - let c = !check in - check := true; - let r = tac gl in - check := c; - r - (************************************************************************) (************************************************************************) (* Implementation of the structural rules (moving and deleting |