[no subject]

[Ludovic Courtès]

branch: master
commit 634208a4ae3230e46007fddce7d69a6b3212b0a6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jul 9 18:49:04 2023 +0200

    remote: Fix router bootstrap message case in 'receive-message'.
    
    * src/cuirass/remote.scm (receive-message): Fix second 'match' clause
    in ROUTER? case.
---
 src/cuirass/remote.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/remote.scm b/src/cuirass/remote.scm
index ee5a01c..e73392f 100644
--- a/src/cuirass/remote.scm
+++ b/src/cuirass/remote.scm
@@ -415,8 +415,10 @@ the payload, the peer's identity (a bytevector), and the 
peer address."
                    read)
                  (zmq-message-content sender)
                  (zmq-message-gets data "Peer-Address")))
-        ((sender #vu8())
-         (values *unspecified* sender)))
+        ((sender (and message (= zmq-message-size 0)))
+         (values *unspecified*
+                 (zmq-message-content sender)
+                 (zmq-message-gets message "Peer-Address"))))
       (match (zmq-get-msg-parts-bytevector socket '())
         ((#vu8() data)
          (call-with-input-string (bv->string data)