diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index d3c3fb71a7..c38f80a553 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -321,7 +321,9 @@ let rec rollback pr = let transaction pr t = init_transaction pr; try t (); commit pr - with reraise -> rollback pr; raise reraise + with reraise -> + let reraise = Errors.push reraise in + rollback pr; raise reraise (* Focus command (focuses on the [i]th subgoal) *) |