diff options
| author | Hugo Herbelin | 2020-03-02 21:15:04 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-03-13 07:37:25 +0100 |
| commit | 89a5abb0b8b453bdda8c9ebf33734c42c3a826db (patch) | |
| tree | dc96f080513504f8b9609a18034c456453659caf /plugins | |
| parent | cd4253ee5db24873ea131554c80650ed6d5dbd13 (diff) | |
Removing catchable_exception test in tclOR/tclORELSE.
Since tclOR/tclORELSE are not supposed to return critical exceptions,
we don't need to replace catchable_exception by noncritical.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/tactic_debug.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/plugins/ltac/tactic_debug.ml b/plugins/ltac/tactic_debug.ml index 3512bb936d..cef0f62a90 100644 --- a/plugins/ltac/tactic_debug.ml +++ b/plugins/ltac/tactic_debug.ml @@ -229,9 +229,7 @@ let debug_prompt lev tac f = Proofview.tclTHEN (Proofview.tclLIFT begin (skip:=0) >> (skipped:=0) >> - if Logic.catchable_exception reraise then - msg_tac_debug (str "Level " ++ int lev ++ str ": " ++ explain_logic_error reraise) - else return () + msg_tac_debug (str "Level " ++ int lev ++ str ": " ++ explain_logic_error reraise) end) (Proofview.tclZERO ~info reraise) end |