diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-06-27 21:46:03 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-06-27 22:36:50 +0200 |
| commit | ccb220a27392ef45b5ef8a8493fdba061c14889b (patch) | |
| tree | b4a0791f3fbd2693aba53b2c40c8969f62a06662 | |
| parent | 663a8647bbc32e11243091de80f9953ed5fb7eff (diff) | |
We want tclORELSE to catch exceptions on backtrackings
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index 01c9cda49..3fca7f50d 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -1217,7 +1217,7 @@ module Search = struct (if Option.is_empty depth then mt() else str" without reaching its limit")) | e -> Proofview.tclZERO ~info:ie e - in Proofview.tclORELSE tac error + in Proofview.tclOR tac error let run_on_evars ?(unique=false) p evm tac = match evars_to_goals p evm with |