aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-01-31 22:02:46 +0100
committerLudovic Courtès <ludo@gnu.org>2016-02-01 08:59:13 +0100
commita4db2dd99f83225a303febf0a1439ea67ef1768c (patch)
treec7137a65dadd91565fa967eb6becd12ace951c5f
parent689b658db8770fd5af08bd00050e2b81c749379b (diff)
downloadguix-a4db2dd99f83225a303febf0a1439ea67ef1768c.tar
guix-a4db2dd99f83225a303febf0a1439ea67ef1768c.tar.gz
build: Remove semicolons from Guile warnings.
* build-aux/compile-all.scm (compile-file*): Clear *CURRENT-WARNING-PREFIX*.
-rw-r--r--build-aux/compile-all.scm17
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: