From 701381d9280fa6948a4ab8ab4ad36c8674bad903 Mon Sep 17 00:00:00 2001
From: letouzey
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
---
 checker/declarations.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'checker')

diff --git a/checker/declarations.ml b/checker/declarations.ml
index 5034604220..69dd261308 100644
--- a/checker/declarations.ml
+++ b/checker/declarations.ml
@@ -139,10 +139,8 @@ let solve_delta_kn resolve kn =
       make_kn new_mp dir l
 
 let gen_of_delta resolve x kn fix_can =
-  try
-    let new_kn = solve_delta_kn resolve kn in
-    if kn == new_kn then x else fix_can new_kn
-  with _ -> x
+  let new_kn = solve_delta_kn resolve kn in
+  if kn == new_kn then x else fix_can new_kn
 
 let constant_of_delta resolve con =
   let kn = user_con con in
-- 
cgit v1.2.3