diff options
| author | barras | 2001-09-14 10:01:23 +0000 |
|---|---|---|
| committer | barras | 2001-09-14 10:01:23 +0000 |
| commit | 8875457d54bf5867723d85a6ffb451c4fbc4f188 (patch) | |
| tree | 5ede041099e6c08bb2cca1fa676159a94d3b2e3e | |
| parent | 9eb127d23fa0e22745a308c67ece1236a233585a (diff) | |
exceptions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1965 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/sign.ml | 2 | ||||
| -rw-r--r-- | proofs/refiner.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/kernel/sign.ml b/kernel/sign.ml index 21c0ed8d25..77bb45bd2e 100644 --- a/kernel/sign.ml +++ b/kernel/sign.ml @@ -180,7 +180,7 @@ type names_context = name list let add_name n nl = n::nl let lookup_name_of_rel p names = try List.nth names (p-1) - with Invalid_argument _ -> raise Not_found + with Invalid_argument _ | Failure _ -> raise Not_found let rec lookup_rel_of_name id names = let rec lookrec n = function | Anonymous :: l -> lookrec (n+1) l 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 |