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

1 files changed, 6 insertions, 6 deletions

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