[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch wip-offload updated: tmp18
From: |
Mathieu Othacehe |
Subject: |
branch wip-offload updated: tmp18 |
Date: |
Thu, 17 Dec 2020 11:38:32 -0500 |
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 e9f5178 tmp18
e9f5178 is described below
commit e9f51781a854666de4054bba49879fe9a83c2a7e
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu Dec 17 17:38:25 2020 +0100
tmp18
---
src/cuirass/remote-server.scm | 6 ++----
src/cuirass/remote.scm | 2 +-
2 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 9f4c700..3750b18 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -480,10 +480,8 @@ frontend to the workers connected through the TCP backend."
((worker empty client empty rest)
(let ((message (list client (zmq-empty-delimiter) rest)))
(if (need-fetching? (bv->string rest))
- (begin
- (pk (bv->string rest))
- (zmq-send-msg-parts-bytevector fetch-socket
- (cons empty message)))
+ (zmq-send-msg-parts-bytevector fetch-socket
+ (cons empty message))
(zmq-send-msg-parts-bytevector client-socket message))))))
;; fetch-worker -> remote-server.
(when (zmq-socket-ready? items fetch-socket)
diff --git a/src/cuirass/remote.scm b/src/cuirass/remote.scm
index a4dda56..73481e2 100644
--- a/src/cuirass/remote.scm
+++ b/src/cuirass/remote.scm
@@ -407,4 +407,4 @@ received, return if no event occured for TIMEOUT
milliseconds."
(when (zmq-socket-ready? items socket)
(match (zmq-get-msg-parts-bytevector socket '())
((empty result)
- (parse-result (pk (bv->string result))))))))
+ (parse-result (bv->string result)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch wip-offload updated: tmp18,
Mathieu Othacehe <=