mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
herd: Use the Guile 2.2 'setvbuf' API.
* gnu/services/herd.scm (open-connection): Use 'block for 'setvbuf'.
This commit is contained in:
parent
88bc3c89bf
commit
bb64b2e7c0
1 changed files with 2 additions and 2 deletions
|
@ -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 @@ (define* (open-connection #:optional (file (%shepherd-socket-file)))
|
|||
(catch 'system-error
|
||||
(lambda ()
|
||||
(connect sock address)
|
||||
(setvbuf sock _IOFBF 1024)
|
||||
(setvbuf sock 'block 1024)
|
||||
sock)
|
||||
(lambda args
|
||||
(close-port sock)
|
||||
|
|
Loading…
Reference in a new issue