diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index ef92e8e427..961ff41fb7 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -55,7 +55,10 @@ let start_proof id str hyps c ?init_tac ?compute_guard hook = | None -> Proofview.tclUNIT () in try Proof_global.run_tactic tac - with e -> Proof_global.discard_current (); raise e + with e -> + let e = Errors.push e in + Proof_global.discard_current (); + raise e let restart_proof () = undo_todepth 1 |