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

build: Remove semicolons from Guile warnings. 

* build-aux/compile-all.scm (compile-file*):
Clear *CURRENT-WARNING-PREFIX*.
This commit is contained in:
Ludovic Courtès 2016-01-31 22:02:46 +01:00
parent 689b658db8
commit a4db2dd99f
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
build-aux/compile-all.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2016 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -17,6 +18,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(use-modules (system base target) (use-modules (system base target)
(system base message)
(ice-9 match) (ice-9 match)
(ice-9 threads) (ice-9 threads)
(guix build utils)) (guix build utils))
@ -67,11 +69,12 @@
(format #t " GUILEC ~a~%" go) (format #t " GUILEC ~a~%" go)
(force-output)) (force-output))
(mkdir-p (dirname go)) (mkdir-p (dirname go))
(with-target host (with-fluids ((*current-warning-prefix* ""))
(lambda () (with-target host
(compile-file file (lambda ()
#:output-file go (compile-file file
#:opts `(#:warnings ,warnings)))))) #:output-file go
#:opts `(#:warnings ,warnings)))))))
(match (command-line) (match (command-line)
((_ . files) ((_ . files)
@ -81,3 +84,7 @@
(par-for-each (lambda (file) (par-for-each (lambda (file)
(compile-file* file mutex)) (compile-file* file mutex))
files))))) files)))))
;;; Local Variables:
;;; eval: (put 'with-target 'scheme-indent-function 1)
;;; End: