diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refiner.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index ab7a4958ce..4ca9a06158 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -577,7 +577,7 @@ let top_goal_of_pftreestate pts = let nth_goal_of_pftreestate n pts = let goals = fst (frontier pts.tpf) in try {it = List.nth goals (n-1); sigma = pts.tpfsigma } - with Failure "nth" -> non_existent_goal n + with Invalid_argument _ | Failure _ -> non_existent_goal n let descend n p = match p.ref with |