diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-09 11:08:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-09 11:08:06 +0200 |
| commit | 43be95c40a433d21f65c9e6bfb04ccc9fa8e2db4 (patch) | |
| tree | 0372ea1e75324d32722de7a1ffe8246009665028 | |
| parent | 2f37403606d31b7b9bfe68c57665d41faaa1d100 (diff) | |
| download | cuirass-43be95c40a433d21f65c9e6bfb04ccc9fa8e2db4.tar cuirass-43be95c40a433d21f65c9e6bfb04ccc9fa8e2db4.tar.gz | |
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.
| -rw-r--r-- | bin/cuirass.in | 4 | ||||
| -rw-r--r-- | 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 <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; @@ -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) |