Minor compiler tweak; respect -quiet
parent
3dc69f16f3
commit
ab8b15693f
|
@ -16,9 +16,10 @@ M: object inference-error-major? drop t ;
|
||||||
|
|
||||||
: begin-batch ( seq -- )
|
: begin-batch ( seq -- )
|
||||||
batch-mode on
|
batch-mode on
|
||||||
[
|
"quiet" get [ drop ] [
|
||||||
"Compiling " % length # " words..." %
|
[ "Compiling " % length # " words..." % ] "" make
|
||||||
] "" make print flush
|
print flush
|
||||||
|
] if
|
||||||
V{ } clone compile-errors set-global ;
|
V{ } clone compile-errors set-global ;
|
||||||
|
|
||||||
: compile-error. ( pair -- )
|
: compile-error. ( pair -- )
|
||||||
|
|
Loading…
Reference in New Issue