TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: make-linux-libre-source: Set output port buffering to line mode.

Browse source 
* gnu/packages/linux.scm (make-linux-libre-source): Set output port buffering
to line mode via setvbuf.  Remove the ad-hoc calls to force-output.
This commit is contained in:
Maxim Cournoyer 2020-09-01 16:23:37 -04:00
parent 49bf16b6b1
commit 8b41fdaf3f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/linux.scm
View file

@ -279,6 +279,9 @@ (define (make-linux-libre-source version
(srfi srfi-1)
(ice-9 match)
(ice-9 ftw))
(setvbuf (current-output-port) 'line)
(let ((dir (string-append "linux-" #$version)))
(mkdir "/tmp/bin")
@ -315,12 +318,10 @@ (define (make-linux-libre-source version
(if (file-is-directory? #+upstream-source)
(begin
(format #t "Copying upstream linux source...~%")
(force-output)
(invoke "cp" "--archive" #+upstream-source dir)
(invoke "chmod" "--recursive" "u+w" dir))
(begin
(format #t "Unpacking upstream linux tarball...~%")
(force-output)
(invoke "tar" "xf" #$upstream-source)
(match (scandir "."
(lambda (name)
@ -334,11 +335,9 @@ (define (make-linux-libre-source version
(with-directory-excursion dir
(format #t "Running deblob script...~%")
(force-output)
(invoke "/tmp/bin/deblob"))
(format #t "~%Packing new Linux-libre tarball...~%")
(force-output)
(invoke "tar" "cvfa" #$output
;; Avoid non-determinism in the archive.
"--mtime=@0"