diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-17 10:31:42 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-17 10:31:42 +0000 |
| commit | 07a1de8f9fcff9864e53a090307efa48eca8fe94 (patch) | |
| tree | 0058dd3898b9b3cdf4897f90bbb91ef944584001 /proofs/proof_global.ml | |
| parent | e9820ad33cd3ba4d34f7b51ffcf19216f4104ccc (diff) | |
Fixes bug in [maximal_unfocus] introduced in r14120.
Fixes bug #2546 ( http://www.lix.polytechnique.fr/coq/bugs/show_bug.cgi?id=2546 ).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14130 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/proof_global.ml')
| -rw-r--r-- | proofs/proof_global.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml index 76aa300aa..780f2eeda 100644 --- a/proofs/proof_global.ml +++ b/proofs/proof_global.ml @@ -300,7 +300,7 @@ let maximal_unfocus k p = begin try while Proof.no_focused_goal p do Proof.unfocus k p done - with Proof.FullyUnfocused -> () + with Proof.FullyUnfocused | Util.UserError _ -> () end |