branch wip-offload updated: tmp9

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch wip-offload
in repository guix-cuirass.

The following commit(s) were added to refs/heads/wip-offload by this push:
     new 9cf6c3a  tmp9
9cf6c3a is described below

commit 9cf6c3a16c7e0a28711a1eac58ea9fdf6cd5f557
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Dec 14 12:10:10 2020 +0100

    tmp9
---
 src/cuirass/remote-server.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 47ac15e..8918bdf 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -408,9 +408,8 @@ socket."
        (let loop ()
          (match (zmq-get-msg-parts-bytevector socket)
            ((client empty rest)
-            (let ((message (bv->string rest)))
-              (run-fetch (bv->string rest)
-                         #:reply (reply socket client)))))
+            (run-fetch (bv->string rest)
+                       #:reply (reply socket client))))
          (loop))))))
 
 
@@ -481,7 +480,9 @@ frontend to the workers connected through the TCP backend."
             ((worker empty client empty rest)
              (let ((message (list empty client (zmq-empty-delimiter) rest)))
                (if (need-fetching? (bv->string rest))
-                   (zmq-send-msg-parts-bytevector fetch-socket message)
+                   (begin
+                     (pk (bv->string rest))
+                     (zmq-send-msg-parts-bytevector fetch-socket message))
                    (zmq-send-msg-parts-bytevector client-socket message))))))
         ;; fetch-worker -> remote-server.
         (when (zmq-socket-ready? items fetch-socket)