aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-06-02 01:30:42 +0200
committerLudovic Courtès <ludo@gnu.org>2019-06-02 01:38:36 +0200
commitbb64b2e7c0ab14cf899c1d81892b59fa877d4d9c (patch)
treeb143ec24bc211365b395236900270b740b764418
parent88bc3c89bf5145d24c2270d2192b7be547e0024f (diff)
downloadguix-bb64b2e7c0ab14cf899c1d81892b59fa877d4d9c.tar
guix-bb64b2e7c0ab14cf899c1d81892b59fa877d4d9c.tar.gz
herd: Use the Guile 2.2 'setvbuf' API.
* gnu/services/herd.scm (open-connection): Use 'block for 'setvbuf'.
-rw-r--r--gnu/services/herd.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index 9fe757fb73..0008746fe9 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
@@ -76,7 +76,7 @@ return the socket."
(catch 'system-error
(lambda ()
(connect sock address)
- (setvbuf sock _IOFBF 1024)
+ (setvbuf sock 'block 1024)
sock)
(lambda args
(close-port sock)