diff options
| author | Pierre-Marie Pédrot | 2020-03-10 08:36:05 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-03-10 08:36:05 +0100 |
| commit | fea01ea28b9fdfd9fb5be91aba982710f55c3aba (patch) | |
| tree | 1fce7949fabdb4eb17a0627c94d3c611dfd34614 /lib/control.ml | |
| parent | bab342d98d413a2b7a20da98c8dbec7616f54bce (diff) | |
| parent | 4ba8fabb14256cdc65e8440362d6697d9e97b7f4 (diff) | |
Merge PR #11774: [exn] [nit] Remove not very useful re-raises.
Reviewed-by: ppedrot
Diffstat (limited to 'lib/control.ml')
| -rw-r--r-- | lib/control.ml | 2 |
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 } |