[exn] [nit] Remove not very useful re-raises.

Cleanup: IMHO most of the re-raises here are not worth it.

1 files changed, 1 insertions, 1 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 }