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
---
 lib/flags.ml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lib/flags.ml')

diff --git a/lib/flags.ml b/lib/flags.ml
index 4ad929052d..bd31b40248 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -9,18 +9,18 @@
 let with_option o f x =
   let old = !o in o:=true;
   try let r = f x in o := old; r
-  with e ->
-    let e = Backtrace.add_backtrace e in
+  with reraise ->
+    let reraise = Backtrace.add_backtrace reraise in
     let () = o := old in
-    raise e
+    raise reraise
 
 let without_option o f x =
   let old = !o in o:=false;
   try let r = f x in o := old; r
-  with e ->
-    let e = Backtrace.add_backtrace e in
+  with reraise ->
+    let reraise = Backtrace.add_backtrace reraise in
     let () = o := old in
-    raise e
+    raise reraise
 
 let boot = ref false
 
-- 
cgit v1.2.3