From ab8b15693fb9c064c4ff07dc9bce3d7bd651cd3a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 6 Dec 2007 15:17:38 -0500
Subject: [PATCH] Minor compiler tweak; respect -quiet

---
 core/compiler/compiler.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/core/compiler/compiler.factor b/core/compiler/compiler.factor
index 76b4d49636..f80a00855d 100644
--- 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 -- )