From 54d8a2f33ee1ba7f341042c81327b6beeaf39a8f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 8 Dec 2004 09:12:26 +0000
Subject: Bug nom exception

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6432 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evd.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index 8bbf48d59b..111cc9d7c6 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 =
-- 
cgit v1.2.3