diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-03-19 11:25:47 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-03-19 11:25:47 +0000 |
commit | db306c9d7f91cffe5720b7645e447a486093f90c (patch) | |
tree | 1f0c087a1dce1f5fb9988b520fd8f476e79c5e82 /proofs | |
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')
-rw-r--r-- | proofs/logic.ml | 15 | ||||
-rw-r--r-- | proofs/logic.mli | 1 |
2 files changed, 1 insertions, 15 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 8aa732fe3..ab5b42633 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 diff --git a/proofs/logic.mli b/proofs/logic.mli index 561c26a7f..906fef017 100644 --- a/proofs/logic.mli +++ b/proofs/logic.mli @@ -20,7 +20,6 @@ open Proof_type (* This suppresses check done in [prim_refiner] for the tactic given in argument; works by side-effect *) -val without_check : tactic -> tactic val with_check : tactic -> tactic (* [without_check] respectively means:\\ |