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