From 43be95c40a433d21f65c9e6bfb04ccc9fa8e2db4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 9 Apr 2018 11:08:06 +0200 Subject: Use the 2.2 'setvbuf' API style. * bin/cuirass.in (main): Use the 2.2 'setvbuf' API style. * examples/guix-track-git.scm (current-error-port): Likewise. --- bin/cuirass.in | 4 ++-- examples/guix-track-git.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/bin/cuirass.in b/bin/cuirass.in index d27167c..b7c9144 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -79,8 +79,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (define* (main #:optional (args (command-line))) ;; Always have stdout/stderr line-buffered. - (setvbuf (current-output-port) _IOLBF) - (setvbuf (current-error-port) _IOLBF) + (setvbuf (current-output-port) 'line) + (setvbuf (current-error-port) 'line) (let ((opts (getopt-long args %options))) (parameterize diff --git a/examples/guix-track-git.scm b/examples/guix-track-git.scm index f867c08..2a538fa 100644 --- a/examples/guix-track-git.scm +++ b/examples/guix-track-git.scm @@ -1,5 +1,5 @@ ;;; guix-track-git.scm -- job specification tracking a guix packages's git -;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018 Ludovic Courtès ;;; Copyright © 2016 Mathieu Lirzin ;;; Copyright © 2016 Jan Nieuwenhuizen ;;; @@ -71,7 +71,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 (license->alist lcs) -- cgit v1.2.3