Don't print compiler warnings during bootstrap, they're useless

TODO.FACTOR.txt

@@ -1,6 +1,7 @@
 - sometimes fep when closing window
 - windows rollover broken again
 - compile error after reloading library/math/float.factor
+- move window while factor is busy: mouse gets messed up!
 
 + ui:
 

library/bootstrap/boot-stage2.factor

@@ -5,8 +5,12 @@ kernel kernel-internals listener math memory modules namespaces
 optimizer parser sequences sequences-internals words ;
 
 [
-    ! Wrap everything in a catch which starts a listener so you
-    ! can see what went wrong, instead of dealing with a fep
+    print-warnings off
+
+    [
+        ! Wrap everything in a catch which starts a listener so
+        ! you can see what went wrong, instead of dealing with a
+        ! fep
         [
             "Cross-referencing..." print flush
             H{ } clone changed-words set-global
@@ -21,7 +25,8 @@ optimizer parser sequences sequences-internals words ;
 
             "compile" get [
                 windows? [
-                "resource:/library/windows/dlls.factor" run-file
+                    "resource:/library/windows/dlls.factor"
+                    run-file
                 ] when
 
                 \ number= compile
@@ -60,9 +65,10 @@ optimizer parser sequences sequences-internals words ;
                 "Initializing native I/O..." print flush
                 "native-io" get [ init-io ] when
 
-            ! We only do this if we are compiled, otherwise it
-            ! takes too long.
-            "Building online help search index..." print flush
+                ! We only do this if we are compiled, otherwise
+                ! it takes too long.
+                "Building online help search index..." print
+                flush
                 H{ } clone parent-graph set-global xref-help
                 H{ } clone term-index set-global index-help
             ] when
@@ -97,5 +103,6 @@ optimizer parser sequences sequences-internals words ;
 
         "factor.image" resource-path save-image
     ] [ print-error :c ] recover
+] with-scope
 
 0 exit

library/compiler/compiler.factor

@@ -5,6 +5,10 @@ USING: errors generic hashtables inference io kernel math
 namespaces optimizer parser prettyprint sequences test threads
 words ;
 
+SYMBOL: print-warnings
+
+t print-warnings set-global
+
 SYMBOL: batch-errors
 
 GENERIC: batch-begins ( batch-errors -- )
@@ -17,7 +21,10 @@ M: f compile-begins drop "Compiling " write . flush ;
 
 GENERIC: compile-error ( error batch-errors -- )
 
-M: f compile-error drop error. flush ;
+M: f compile-error
+    drop
+    dup inference-error-major? print-warnings get or
+    [ dup error. flush ] when drop ;
 
 GENERIC: batch-ends ( batch-errors -- )