nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pull: Hide compilation warnings. 

* guix/build/pull.scm (build-guix): Bind 'current-warning-port' to a
void port.
This commit is contained in:
Ludovic Courtès 2017-10-23 16:47:50 -07:00
parent ce33c3af76
commit 2900665888
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
guix/build/pull.scm
View File

@ -119,42 +119,43 @@ containing the source code. Write any debugging output to DEBUG-PORT."
(set! %load-path (cons out %load-path)) (set! %load-path (cons out %load-path))
(set! %load-compiled-path (cons out %load-compiled-path)) (set! %load-compiled-path (cons out %load-compiled-path))
;; Compile the .scm files. Filter out files depending on Guile-SSH when ;; Compile the .scm files. Hide warnings.
;; Guile-SSH is missing. (parameterize ((current-warning-port (%make-void-port "w")))
(with-directory-excursion out (with-directory-excursion out
(let ((files (filter has-all-its-dependencies? ;; Filter out files depending on Guile-SSH when Guile-SSH is missing.
(all-scheme-files ".")))) (let ((files (filter has-all-its-dependencies?
(compile-files out out (all-scheme-files "."))))
(compile-files out out
;; XXX: 'compile-files' except ready-to-use relative ;; XXX: 'compile-files' except ready-to-use relative
;; file names. ;; file names.
(map (lambda (file) (map (lambda (file)
(if (string-prefix? "./" file) (if (string-prefix? "./" file)
(string-drop file 2) (string-drop file 2)
file)) file))
files) files)
#:workers (parallel-job-count) #:workers (parallel-job-count)
;; Disable warnings. ;; Disable warnings.
#:warning-options '() #:warning-options '()
#:report-load #:report-load
(lambda (file total completed) (lambda (file total completed)
(display #\cr log-port) (display #\cr log-port)
(format log-port (format log-port
"loading...\t~5,1f% of ~d files" ;FIXME: i18n "loading...\t~5,1f% of ~d files" ;FIXME: i18n
(* 100. (/ completed total)) total) (* 100. (/ completed total)) total)
(force-output log-port) (force-output log-port)
(format debug-port "~%loading '~a'...~%" file)) (format debug-port "~%loading '~a'...~%" file))
#:report-compilation #:report-compilation
(lambda (file total completed) (lambda (file total completed)
(display #\cr log-port) (display #\cr log-port)
(format log-port "compiling...\t~5,1f% of ~d files" ;FIXME: i18n (format log-port "compiling...\t~5,1f% of ~d files" ;FIXME: i18n
(* 100. (/ completed total)) total) (* 100. (/ completed total)) total)
(force-output log-port) (force-output log-port)
(format debug-port "~%compiling '~a'...~%" file)))))) (format debug-port "~%compiling '~a'...~%" file)))))))
(newline) (newline)
#t) #t)