diff options
| author | Pierre Corbineau | 2014-12-16 15:59:52 +0100 |
|---|---|---|
| committer | Pierre Corbineau | 2014-12-16 16:01:25 +0100 |
| commit | 8029f7555f9c6f201cc70b5ecc538b11a861f0aa (patch) | |
| tree | c750b3ea7cafd5ec2176866bbd16208e5335978a /lib/control.ml | |
| parent | d4f5bdd6f7304fac541bb5f4555ecdd6aa42699a (diff) | |
| parent | f88cce2698da000ab9054da31330db70997a41a4 (diff) | |
fix bug #2447 in congruence
Diffstat (limited to 'lib/control.ml')
| -rw-r--r-- | lib/control.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/control.ml b/lib/control.ml index cce9d3a9f9..04d1760921 100644 --- a/lib/control.ml +++ b/lib/control.ml @@ -41,7 +41,7 @@ let unix_timeout n f e = with e -> let e = Backtrace.add_backtrace e in restore_timeout (); - raise e + Exninfo.iraise e let windows_timeout n f e = let killed = ref false in @@ -78,7 +78,7 @@ let windows_timeout n f e = | e -> let () = killed := true in let e = Backtrace.add_backtrace e in - raise e + Exninfo.iraise e type timeout = { timeout : 'a. int -> (unit -> 'a) -> exn -> 'a } |