Minor compiler tweak; respect -quiet

2007-12-06 15:17:38 -05:00 · 2007-12-06 15:17:38 -05:00 · ab8b15693f
parent 3dc69f16f3
commit ab8b15693f
1 changed files with 4 additions and 3 deletions
--- 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 -- )