diff options
| author | letouzey | 2013-03-16 21:52:51 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-16 21:52:51 +0000 |
| commit | 7f92ed9a6e1cd7dd5cc8ecab9a9aea1ff57194cd (patch) | |
| tree | 90bcb93e2b4250e89b153411467bd6d9932f0791 | |
| parent | a3f82d0d498a81612618f39481ed829e857afd3c (diff) | |
another Errors.push in a exception reraise
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16307 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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) *) |