diff options
| author | Hugo Herbelin | 2014-08-21 12:53:39 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-12 10:39:32 +0200 |
| commit | b720cd3cbefa46da784b68a8e016a853f577800c (patch) | |
| tree | 6e338ce2d2abedf75309d9ac0290836902590cef /proofs/proofview.ml | |
| parent | 32e2b1ba856f330dae03fbbf16365a08c2cc2f20 (diff) | |
No plural for only one non existing focused goal.
Diffstat (limited to 'proofs/proofview.ml')
| -rw-r--r-- | proofs/proofview.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 661b32601c..0acfda3d80 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -309,9 +309,9 @@ let tclEXACTLY_ONCE e t = (* Focuses a tactic at a range of subgoals, found by their indices. *) -exception NoSuchGoals +exception NoSuchGoals of int let _ = Errors.register_handler begin function - | NoSuchGoals -> Errors.error "No such goals." + | NoSuchGoals n -> Errors.error ("No such " ^ String.plural n "goal" ^".") | _ -> raise Errors.Unhandled end let tclFOCUS_gen nosuchgoal i j t = @@ -327,7 +327,7 @@ let tclFOCUS_gen nosuchgoal i j t = Proof.ret result with IndexOutOfRange -> nosuchgoal -let tclFOCUS i j t = tclFOCUS_gen (tclZERO NoSuchGoals) i j t +let tclFOCUS i j t = tclFOCUS_gen (tclZERO (NoSuchGoals (j+1-i))) i j t let tclTRYFOCUS i j t = tclFOCUS_gen (tclUNIT ()) i j t |