diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-08 09:12:26 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-08 09:12:26 +0000 |
| commit | 54d8a2f33ee1ba7f341042c81327b6beeaf39a8f (patch) | |
| tree | 6ee41c9ad8fa8d529128b4760025004e402846e7 | |
| parent | ec810678d46e307a0599bbff358d557a865cd58e (diff) | |
Bug nom exception
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6432 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 8bbf48d59..111cc9d7c 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -222,7 +222,7 @@ let reset_evd (sigma,mmap) d = {d with evars = sigma; metas=mmap} let add_conv_pb pb d = {d with conv_pbs = pb::d.conv_pbs} let evar_source ev d = try List.assoc ev d.history - with Failure _ -> (dummy_loc, InternalHole) + with Not_found -> (dummy_loc, InternalHole) (* define the existential of section path sp as the constr body *) let evar_define sp body isevars = |