From 701381d9280fa6948a4ab8ab4ad36c8674bad903 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 12 Mar 2013 23:59:39 +0000
Subject: Restrict (try...with...) to avoid catching critical exn (part 2)

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

(limited to 'kernel/mod_subst.ml')

diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml
index 731475fb4..ed50c6d72 100644
--- a/kernel/mod_subst.ml
+++ b/kernel/mod_subst.ml
@@ -181,7 +181,7 @@ let solve_delta_kn resolve kn =
 
 let kn_of_delta resolve kn =
   try solve_delta_kn resolve kn
-  with _ -> kn
+  with Change_equiv_to_inline _ -> kn
 
 (** Try a 1st resolver, and then a 2nd in case it had no effect *)
 
-- 
cgit v1.2.3