diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-01-31 22:02:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-02-01 08:59:13 +0100 |
| commit | a4db2dd99f83225a303febf0a1439ea67ef1768c (patch) | |
| tree | c7137a65dadd91565fa967eb6becd12ace951c5f /build-aux/compile-all.scm | |
| parent | 689b658db8770fd5af08bd00050e2b81c749379b (diff) | |
| download | patches-a4db2dd99f83225a303febf0a1439ea67ef1768c.tar patches-a4db2dd99f83225a303febf0a1439ea67ef1768c.tar.gz | |
build: Remove semicolons from Guile warnings.
* build-aux/compile-all.scm (compile-file*):
Clear *CURRENT-WARNING-PREFIX*.
Diffstat (limited to 'build-aux/compile-all.scm')
| -rw-r--r-- | build-aux/compile-all.scm | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/build-aux/compile-all.scm b/build-aux/compile-all.scm index f1704dcbdb..7c937a0422 100644 --- a/build-aux/compile-all.scm +++ b/build-aux/compile-all.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; @@ -17,6 +18,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (use-modules (system base target) + (system base message) (ice-9 match) (ice-9 threads) (guix build utils)) @@ -67,11 +69,12 @@ (format #t " GUILEC ~a~%" go) (force-output)) (mkdir-p (dirname go)) - (with-target host - (lambda () - (compile-file file - #:output-file go - #:opts `(#:warnings ,warnings)))))) + (with-fluids ((*current-warning-prefix* "")) + (with-target host + (lambda () + (compile-file file + #:output-file go + #:opts `(#:warnings ,warnings))))))) (match (command-line) ((_ . files) @@ -81,3 +84,7 @@ (par-for-each (lambda (file) (compile-file* file mutex)) files))))) + +;;; Local Variables: +;;; eval: (put 'with-target 'scheme-indent-function 1) +;;; End: |