[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Thu, 13 Jul 2023 19:45:56 -0400 (EDT) |
branch: master
commit fa0c4b3b245879e08b1c3fd0c6c447d56c9c97a1
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jul 14 01:36:27 2023 +0200
remote: Really check for ZMQ_POLLIN in 'receive-message'.
* src/cuirass/remote.scm (receive-message): Add missing (logand
ZMQ_POLLIN ...) around ZMQ_EVENTS.
---
src/cuirass/remote.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/cuirass/remote.scm b/src/cuirass/remote.scm
index 6fedca7..1926679 100644
--- a/src/cuirass/remote.scm
+++ b/src/cuirass/remote.scm
@@ -438,7 +438,8 @@ the payload, the peer's identity (a bytevector), and the
peer address."
(when (zero? (logand ZMQ_POLLIN
(zmq-get-socket-option socket ZMQ_EVENTS)))
((current-read-waiter) (zmq-socket->port socket))
- (when (zero? (zmq-get-socket-option socket ZMQ_EVENTS))
+ (when (zero? (logand ZMQ_POLLIN
+ (zmq-get-socket-option socket ZMQ_EVENTS)))
;; Per <http://api.zeromq.org/master:zmq-getsockopt>, "applications
;; should simply ignore this case and restart their polling
;; operation/event loop."