Minor compiler tweak; respect -quiet

release
Slava Pestov 2007-12-06 15:17:38 -05:00
parent 3dc69f16f3
commit ab8b15693f
1 changed files with 4 additions and 3 deletions

View File

@ -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 -- )