From 6bf58e3e62a12a4a3149e8f4563b358cccb3b4fc Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 14 Feb 2024 20:53:17 -0500
Subject: [PATCH] perf: quicker check for []

---
 src/lwt/base.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lwt/base.ml b/src/lwt/base.ml
index 1642587a..02e73b5a 100644
--- a/src/lwt/base.ml
+++ b/src/lwt/base.ml
@@ -47,7 +47,7 @@ module Action_queue = struct
     while
       let old = Atomic.get self.q in
       if Atomic.compare_and_set self.q old (a :: old) then (
-        is_first := old = [];
+        is_first := old == [];
         false
       ) else
         true