From ace4e1bd3aff0629b70ccd7ff1a0919a6c9f55c1 Mon Sep 17 00:00:00 2001
From: Anton Bachin <antonbachin@yahoo.com>
Date: Mon, 15 Jan 2024 21:47:43 +0300
Subject: [PATCH] Fix trivial loop test

---
 test/unit/loop/trivial.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/test/unit/loop/trivial.ml b/test/unit/loop/trivial.ml
index 80f812f5..e019ac0e 100644
--- a/test/unit/loop/trivial.ml
+++ b/test/unit/loop/trivial.ml
@@ -1,4 +1,3 @@
 let () =
-  Helpers.with_loop @@ fun loop ->
-  ignore loop;
+  Helpers.with_loop ignore;
   print_endline "Ok"