From 9aecb4427f0f8ca3cb4c26bc7f73bb74164a93d9 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 13 Mar 2013 00:00:17 +0000
Subject: Restrict (try...with...) to avoid catching critical exn (part 8)

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

(limited to 'kernel/safe_typing.ml')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index fa565fa34f..b2d08e977f 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -881,7 +881,8 @@ end = struct
 	  let k = key_of_lazy_constr k in
 	  let access key =
 	    try (Lazy.force table).(key)
-	    with _ -> error "Error while retrieving an opaque body"
+	    with e when Errors.noncritical e ->
+              error "Error while retrieving an opaque body"
 	  in
 	  match load_proof with
 	    | Flags.Force ->
-- 
cgit v1.2.3