store: Use 'write-bytevector' instead of hand-coded equivalent.

* guix/store.scm (process-stderr): Use 'write-bytevector' in the
%STDERR-READ case.
This commit is contained in:
Ludovic Courtès 2017-05-04 16:41:30 +02:00
parent cd041b268e
commit 396d12faea
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -581,9 +581,7 @@ (define %stderr-error #x63787470) ; "cxtp", error reporting
(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