From c1509321d1aba64a5546248ca23521042efbe1de Mon Sep 17 00:00:00 2001
From: barras
Date: Sat, 28 May 2005 14:51:32 +0000
Subject: unification: evar_define checks the free variables are bound in the
 evar context

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7088 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/logic.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/logic.ml b/proofs/logic.ml
index ab5b426339..74a1cf7626 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -50,9 +50,9 @@ let catchable_exception = function
   | Util.UserError _ | TypeError _ | RefinerError _
   (* unification errors *)
   | PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _|
-      CannotUnifyBindingType _))
+      CannotUnifyBindingType _|NotClean _))
   | Stdpp.Exc_located(_,PretypeError(_,(CannotUnify _|CannotGeneralize _|
-          NoOccurrenceFound _ | CannotUnifyBindingType _)))
+          NoOccurrenceFound _ | CannotUnifyBindingType _|NotClean _)))
   | Stdpp.Exc_located(_,(Util.UserError _ | TypeError _ | RefinerError _ |
     Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _))) -> true
   | _ -> false
-- 
cgit v1.2.3