fix for 4.08

This commit is contained in:
Simon Cruanes 2025-05-07 22:32:29 -04:00
parent 4098e88c68
commit d1759fea89
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -44,7 +44,7 @@ open struct
let put_in_ready (self : t) buf : unit = let put_in_ready (self : t) buf : unit =
if Buf.size buf > 0 then ( if Buf.size buf > 0 then (
let@ q = Lock.with_ self.ready in let@ q = Lock.with_ self.ready in
Atomic.set self.has_ready true; A.set self.has_ready true;
Queue.push buf q Queue.push buf q
) )