command-line: enable "quiet" mode for -e or script modes before .factor-rc is loaded

db4
Joe Groff 2011-08-19 17:26:47 -07:00
parent 9f93d4bff7
commit 237d0733c6
1 changed files with 11 additions and 9 deletions

View File

@ -92,16 +92,18 @@ from within Factor for more information.
: command-line-startup ( -- )
(command-line) parse-command-line
load-vocab-roots
run-user-init
"help" get "-help" get or "h" get or [ cli-usage ] [
"e" get script get or [
"e" get [ eval( -- ) ] when*
script get [ run-script ] when*
] [
"run" get run
] if
"e" get script get or "quiet" [
load-vocab-roots
run-user-init
"e" get script get or [
"e" get [ eval( -- ) ] when*
script get [ run-script ] when*
] [
"run" get run
] if
] with-variable
] if
output-stream get [ stream-flush ] when*