diff options
| author | msozeau | 2008-05-01 22:14:20 +0000 |
|---|---|---|
| committer | msozeau | 2008-05-01 22:14:20 +0000 |
| commit | 2e529d8c54382aecc2f825c58c517cf3fa0f8786 (patch) | |
| tree | 26a422297e9d41df409992ec3387f20e89154490 /tactics | |
| parent | 14f6e7940436909c6f3bc1cc9f01464a556c1a45 (diff) | |
Move exception-handling code for catching tactics failure
in a separate function in Refiner and use it in eauto to capture the
same semantics as auto (which uses tclTRY) when trying tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10879 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eauto.ml4 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index e6172d3df1..c6804329b0 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -248,10 +248,9 @@ module SearchProblem = struct (* let gl = Proof_trees.db_pr_goal (List.hd (sig_it glls)) in *) (* msg (hov 1 (pptac ++ str" gives: \n" ++ pr_goals lgls ++ str"\n")); *) ((lgls,v'),pptac) :: aux tacl - with e when Logic.catchable_exception e -> - aux tacl + with e -> Refiner.catch_failerror e; aux tacl in aux l - + (* Ordering of states is lexicographic on depth (greatest first) then number of remaining goals. *) let compare s s' = |