diff options
| author | barras | 2001-09-14 08:30:26 +0000 |
|---|---|---|
| committer | barras | 2001-09-14 08:30:26 +0000 |
| commit | 9eb127d23fa0e22745a308c67ece1236a233585a (patch) | |
| tree | 47c7fd9afded7d310ce251a22ee35068d4a0b704 /kernel | |
| parent | 89ef6a7ddc66d30be22fcc5ad415195715ee3556 (diff) | |
mauvais rattrapage d'exception
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1964 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/sign.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/sign.ml b/kernel/sign.ml index dff7e12181..21c0ed8d25 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 Failure "nth" -> raise Not_found + with Invalid_argument _ -> raise Not_found let rec lookup_rel_of_name id names = let rec lookrec n = function | Anonymous :: l -> lookrec (n+1) l |