From a4db2dd99f83225a303febf0a1439ea67ef1768c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 31 Jan 2016 22:02:46 +0100 Subject: build: Remove semicolons from Guile warnings. * build-aux/compile-all.scm (compile-file*): Clear *CURRENT-WARNING-PREFIX*. --- build-aux/compile-all.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'build-aux/compile-all.scm') 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 +;;; Copyright © 2016 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -17,6 +18,7 @@ ;;; along with GNU Guix. If not, see . (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: -- cgit v1.2.3