Minor compiler tweak; respect -quiet

diff --git a/core/compiler/compiler.factor b/core/compiler/compiler.factor
index 76b4d49636248159088da860f2bb4581c5d61cbe..f80a00855d30892eed48fc2ac05938f7323def05 100644 (file)
--- a/core/compiler/compiler.factor
+++ b/core/compiler/compiler.factor
@@ -16,9 +16,10 @@ M: object inference-error-major? drop t ;
 
 : begin-batch ( seq -- )
     batch-mode on
-    [
-        "Compiling " % length # " words..." %
-    ] "" make print flush
+    "quiet" get [ drop ] [
+        [ "Compiling " % length # " words..." % ] "" make
+        print flush
+    ] if
     V{ } clone compile-errors set-global ;
 
 : compile-error. ( pair -- )