This commit is contained in:
Simon Cruanes 2022-03-21 11:45:46 -04:00
parent 341c70f18f
commit 302711ea06
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -39,7 +39,7 @@ let run () =
Unix.sleepf 0.1;
if j=4 && !i mod 13 = 0 then failwith "oh no"; (* simulate a failure *)
T.Trace.add_event scope @@ T.Event.make "done with alloc";
T.Trace.add_event scope (fun()->T.Event.make "done with alloc");
with Failure _ ->
());
done;