From 302711ea0625138cedf800fb11df0fed533efaaf Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 21 Mar 2022 11:45:46 -0400
Subject: [PATCH] fix test

---
 tests/emit1.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/emit1.ml b/tests/emit1.ml
index 357c00fe..35e632fd 100644
--- a/tests/emit1.ml
+++ b/tests/emit1.ml
@@ -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;