From 7944955b892f0ffa70ecf92f83b372cddc5b867b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 30 Mar 2008 22:30:44 +0000
Subject: Modifications diverses et variées : - Nouvel essai de prise en compte
 unfold dans apply (unification.ml) - Correction bug commit précédent
 (constrintern.ml) - Correction bug d'explication des evars non résolues
 (evarutil.ml) - Fenêtre de query coqide plus large (command_windows.ml) -
 Orthographe tauto (tauto.ml4) - Crédits (ConstructiveEpsilon.v)

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

(limited to 'interp')

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index a0e9b6bb5f..55f3d9fba2 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -606,7 +606,7 @@ let find_constructor ref f aliases pats scopes =
 	   let subst = List.map2 (fun (id,scl) a -> (id,(a,scl))) vars pats1 in
 	   let idspl1 = List.map (subst_cases_pattern loc (alias_of aliases) f subst scopes) args in
 	   cstr, idspl1, pats2
-       | _ -> error_invalid_pattern_notation loc)
+       | _ -> raise Not_found)
       
   | TrueGlobal r ->
       let rec unf = function
-- 
cgit v1.2.3