diff options
| author | ppedrot | 2013-06-06 17:39:19 +0000 |
|---|---|---|
| committer | ppedrot | 2013-06-06 17:39:19 +0000 |
| commit | 136a5746aa6d3b841db6327deb61802aef518e66 (patch) | |
| tree | 9b6f9f17921fbecd9d7d1905e2e37aed634f87f3 /proofs | |
| parent | 371cc90e75226a2c4b8022860bc4bd09b3e6657a (diff) | |
Fixing bug #3030.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16567 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.ml | 2 | ||||
| -rw-r--r-- | proofs/proofview.ml | 6 |
2 files changed, 3 insertions, 5 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index cab86721f2..6132cc9c62 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -126,7 +126,7 @@ let solve_nth ?(with_end_tac=false) gi tac = Proof_global.run_tactic (Proofview.tclFOCUS gi gi tac) with | Proof_global.NoCurrentProof -> Errors.error "No focused proof" - | Proofview.IndexOutOfRange | Failure "List.chop" -> + | Proofview.IndexOutOfRange -> let msg = str "No such goal: " ++ int gi ++ str "." in Errors.errorlabstrm "" msg diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 96ff63d230..45b7c084d7 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -113,10 +113,8 @@ let focus_context f = f let focus_sublist i j l = let (left,sub_right) = list_goto (i-1) l in let (sub, right) = - try - List.chop (j-i+1) sub_right - with Failure "list_chop" -> - Errors.errorlabstrm "nth_unproven" (Pp.str"No such unproven subgoal") + try List.chop (j-i+1) sub_right + with Failure _ -> raise IndexOutOfRange in (sub, (left,right)) |