download: Improve progress report output.

* guix/build/download.scm (url-fetch): Make current-output-port
  unbuffered.
master
Ludovic Courtès 2014-04-16 12:25:25 +02:00
parent 58ec6f4ba9
commit 395bea2a53
1 changed files with 4 additions and 1 deletions

View File

@ -307,7 +307,10 @@ on success."
uri)
#f)))
(setvbuf (current-output-port) _IOLBF)
;; Make this unbuffered so 'progress-proc' works as expected. _IOLBF means
;; '\n', not '\r', so it's not appropriate here.
(setvbuf (current-output-port) _IONBF)
(setvbuf (current-error-port) _IOLBF)
(let try ((uri uri))