diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-06-02 01:30:42 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-02 01:38:36 +0200 |
commit | bb64b2e7c0ab14cf899c1d81892b59fa877d4d9c (patch) | |
tree | b143ec24bc211365b395236900270b740b764418 /gnu | |
parent | 88bc3c89bf5145d24c2270d2192b7be547e0024f (diff) | |
download | guix-bb64b2e7c0ab14cf899c1d81892b59fa877d4d9c.tar.gz |
herd: Use the Guile 2.2 'setvbuf' API.
* gnu/services/herd.scm (open-connection): Use 'block for 'setvbuf'.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/services/herd.scm | 4 |
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) |