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.

1 files 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)