From 396d12faea2dcfeae2572818b55a00d90b4bd213 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 4 May 2017 16:41:30 +0200
Subject: store: Use 'write-bytevector' instead of hand-coded equivalent.

* guix/store.scm (process-stderr): Use 'write-bytevector' in the
%STDERR-READ case.
---
 guix/store.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'guix/store.scm')

diff --git a/guix/store.scm b/guix/store.scm
index ee47703a55..b71c47b9bb 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -581,9 +581,7 @@ encoding conversion errors."
            (let* ((max-len (read-int p))
                   (data    (make-bytevector max-len))
                   (len     (get-bytevector-n! user-port data 0 max-len)))
-             (write-int len p)
-             (put-bytevector p data 0 len)
-             (write-padding len p)
+             (write-bytevector data p)
              #f))
           ((= k %stderr-next)
            ;; Log a string.  Build logs are usually UTF-8-encoded, but they
-- 
cgit v1.2.3