Merge PR #11774: [exn] [nit] Remove not very useful re-raises.

Reviewed-by: ppedrot

2 files changed, 2 insertions, 6 deletions

diff --git a/lib/control.ml b/lib/control.ml
index e67e88ee95..1898eab89e 100644
--- a/lib/control.ml
+++ b/lib/control.ml
@@ -75,8 +75,8 @@ let windows_timeout n f x e =
     if not !exited then begin killed := true; raise Sys.Break end
     else raise e
   | e ->
-    let () = killed := true in
     let e = Exninfo.capture e in
+    let () = killed := true in
     Exninfo.iraise e
 
 type timeout = { timeout : 'a 'b. int -> ('a -> 'b) -> 'a -> exn -> 'b }
diff --git a/lib/pp.ml b/lib/pp.ml
index 1bd160dcda..f9b6ef20bf 100644
--- a/lib/pp.ml
+++ b/lib/pp.ml
@@ -201,11 +201,7 @@ let pp_with ft pp =
                                  pp_cmd s;
                                  pp_close_tag ft () [@warning "-3"]
   in
-  try pp_cmd pp
-  with reraise ->
-    let reraise = Exninfo.capture reraise in
-    let () = Format.pp_print_flush ft () in
-    Exninfo.iraise reraise
+  pp_cmd pp
 
 (* If mixing some output and a goal display, please use msg_warning,
    so that interfaces (proofgeneral for example) can easily dispatch