From 689b658db8770fd5af08bd00050e2b81c749379b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 31 Jan 2016 21:59:01 +0100 Subject: [PATCH] build: Really enable Guile warnings. * build-aux/compile-all.scm (compile-options): Rename to... (warnings): ... this. Add 'unsupported-warning'. (compile-file*): Pass '(#:warnings ...) as #:opts. --- build-aux/compile-all.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/build-aux/compile-all.scm b/build-aux/compile-all.scm index e0877dbe8c..f1704dcbdb 100644 --- a/build-aux/compile-all.scm +++ b/build-aux/compile-all.scm @@ -21,7 +21,8 @@ (ice-9 threads) (guix build utils)) -(define compile-options '(format unbound-variable arity-mismatch)) +(define warnings + '(unsupported-warning format unbound-variable arity-mismatch)) (define host (getenv "host")) @@ -70,7 +71,7 @@ (lambda () (compile-file file #:output-file go - #:opts compile-options))))) + #:opts `(#:warnings ,warnings)))))) (match (command-line) ((_ . files)