diff options
Diffstat (limited to 'tactics/eauto.ml4')
| -rw-r--r-- | tactics/eauto.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/eauto.ml4 b/tactics/eauto.ml4 index 303c73d6b..ca1cc7506 100644 --- a/tactics/eauto.ml4 +++ b/tactics/eauto.ml4 @@ -228,6 +228,7 @@ module SearchProblem = struct (* msg (hov 1 (pptac ++ str" gives: \n" ++ pr_goals lgls ++ str"\n")); *) (lgls,pptac) :: aux tacl with e when Errors.noncritical e -> + let e = Errors.push e in Refiner.catch_failerror e; aux tacl in aux l |