10/11: hydra: Remove uses of _IOLBF.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 530e31b82448ba00dbbe6abc078204d340c09cb1
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Mar 5 23:21:37 2020 +0100

    hydra: Remove uses of _IOLBF.
    
    _IOLBF & co. were deprecated in Guile 2.2 and removed in 3.0.
    
    * build-aux/hydra/gnu-system.scm: Pass 'line instead of _IOLBF to 'setvbuf'.
    * build-aux/hydra/guix-modular.scm: Likewise.
---
 build-aux/hydra/gnu-system.scm   | 4 ++--
 build-aux/hydra/guix-modular.scm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index f54302c..4afdb48 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès 
<address@hidden>
+;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2020 Ludovic Courtès 
<address@hidden>
 ;;; Copyright © 2017 Jan Nieuwenhuizen <address@hidden>
 ;;; Copyright © 2018, 2019 Clément Lassieur <address@hidden>
 ;;;
@@ -31,7 +31,7 @@
 
 ;; XXX: Debugging hack: since `hydra-eval-guile-jobs' redirects the output
 ;; port to the bit bucket, let us write to the error port instead.
-(setvbuf (current-error-port) _IOLBF)
+(setvbuf (current-error-port) 'line)
 (set-current-output-port (current-error-port))
 
 (define (find-current-checkout arguments)
diff --git a/build-aux/hydra/guix-modular.scm b/build-aux/hydra/guix-modular.scm
index 9ff9e09..8e07e7c 100644
--- a/build-aux/hydra/guix-modular.scm
+++ b/build-aux/hydra/guix-modular.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2018 Ludovic Courtès <address@hidden>
+;;; Copyright © 2017, 2018, 2020 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -33,7 +33,7 @@
 
 ;; XXX: Debugging hack: since `hydra-eval-guile-jobs' redirects the output
 ;; port to the bit bucket, let us write to the error port instead.
-(setvbuf (current-error-port) _IOLBF)
+(setvbuf (current-error-port) 'line)
 (set-current-output-port (current-error-port))
 
 (define* (build-job store source version system)