diff options
Diffstat (limited to 'kernel/sign.ml')
| -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 21c0ed8d2..77bb45bd2 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 |