[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
|
From: |
Ludovic Courtès |
|
Date: |
Mon, 9 Apr 2018 05:09:17 -0400 (EDT) |
branch: master
commit 43be95c40a433d21f65c9e6bfb04ccc9fa8e2db4
Author: Ludovic Courtès <address@hidden>
Date: Mon Apr 9 11:08:06 2018 +0200
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:address@hidden@} --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 <address@hidden>
+;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018 Ludovic Courtès
<address@hidden>
;;; Copyright © 2016 Mathieu Lirzin <address@hidden>
;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
;;;
@@ -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)