Warning and optimization levels always small integers

* module/language/tree-il/analyze.scm (make-analyzer): Expect an int for
  optimization level.
* module/scripts/compile.scm (%options, show-warning-help): No more
  -Wnone / Wall; use -W0 or -W9 instead.
* module/system/base/compile.scm (level-validator): Validate small int.
  (compute-analyzer, add-default-optimizations): Likewise.
* test-suite/tests/optargs.test (without-compiler-warnings):
* test-suite/tests/tree-il.test (call-with-warnings): Parameterize level
  to 0, not #f.
* bootstrap/Makefile.am (GUILE_WARNINGS): Use -W0, not -Wnone.

1 files changed, 2 insertions, 8 deletions

diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm
index ea6377b48..7b6daea85 100644
--- a/module/scripts/compile.scm
+++ b/module/scripts/compile.scm
@@ -87,12 +87,6 @@
                     ("help"
                      (show-warning-help)
                      (exit 0))
-                    ("all"
-                     (alist-cons 'warning-level #t
-                                 (alist-delete 'warning-level result)))
-                    ("none"
-                     (alist-cons 'warning-level #f
-                                 (alist-delete 'warning-level result)))
                     ((? string->number)
                      (let ((n (string->number arg)))
                        (unless (and (exact-integer? n) (<= 0 n))
@@ -176,8 +170,8 @@ There is NO WARRANTY, to the extent permitted by law.~%"))
                       (warning-type-description wt)))
             %warning-types)
   (format #t "~%")
-  (format #t "You may also specify warning levels as `-Wnone', `-W0`, `-W1',~%")
-  (format #t "`-W2', `-W3', or `-Wall`.  The default is `-W1'.~%"))
+  (format #t "You may also specify warning levels as `-W0`, `-W1',~%")
+  (format #t "`-W2', or `-W3'.  The default is `-W1'.~%"))
 
 (define (show-optimization-help)
   (format #t "The available optimizations are:~%~%")