Make "quiet" true by default. Disable quiet mode for listener, bootstrap, and deploy tool.

Move "quiet" to parser-quiet? in parser.notes. Change a few places where quiet was handle wrong.

basis/bootstrap/image/image.factor

@@ -11,7 +11,7 @@ source-files definitions debugger quotations.private combinators
 combinators.short-circuit math.order math.private accessors
 slots.private generic.single.private compiler.units
 compiler.constants fry locals bootstrap.image.syntax
-generalizations ;
+generalizations parser.notes ;
 IN: bootstrap.image
 
 : arch ( os cpu -- arch )
@@ -606,6 +606,7 @@ PRIVATE>
 
 : make-image ( arch -- )
     [
+        f parser-quiet? set
         architecture set
         "resource:/core/bootstrap/stage1.factor" run-file
         build-image

basis/bootstrap/stage2.factor

@@ -5,7 +5,7 @@ kernel.private math memory continuations kernel io.files
 io.pathnames io.backend system parser vocabs sequences
 vocabs.loader combinators splitting source-files strings
 definitions assocs compiler.units math.parser
-generic sets command-line ;
+generic sets command-line parser.notes ;
 IN: bootstrap.stage2
 
 SYMBOL: core-bootstrap-time
@@ -62,6 +62,8 @@ SYMBOL: bootstrap-time
     ! We time bootstrap
     nano-count
 
+    parser-quiet? off
+
     default-image-name "output-image" set-global
 
     "math compiler threads help io tools ui ui.tools unicode handbook" "include" set-global

basis/command-line/command-line-docs.factor

@@ -89,7 +89,6 @@ ARTICLE: "standard-cli-args" "Command line switches for general usage"
     { { $snippet "-e=" { $emphasis "code" } } { "This specifies a code snippet to evaluate. If you want Factor to exit immediately after, also specify " { $snippet "-run=none" } "." } }
     { { $snippet "-run=" { $emphasis "vocab" } } { { $snippet { $emphasis "vocab" } } " is the name of a vocabulary with a " { $link POSTPONE: MAIN: } " hook to run on startup, for example " { $vocab-link "listener" } ", " { $vocab-link "ui.tools" } " or " { $vocab-link "none" } "." } }
     { { $snippet "-no-user-init" } { "Inhibits the running of user initialization files on startup. See " { $link "rc-files" } "." } }
-    { { $snippet "-quiet" } { "If set, " { $link run-file } " and " { $link require } " will not print load messages." } }
 } ;
 
 ARTICLE: ".factor-boot-rc" "Bootstrap initialization file"

basis/command-line/command-line.factor

@@ -3,7 +3,7 @@
 USING: init continuations hashtables io io.encodings.utf8
 io.files io.pathnames kernel kernel.private namespaces parser
 sequences source-files strings system splitting vocabs.loader
-alien.strings accessors ;
+alien.strings accessors parser.notes ;
 IN: command-line
 
 SYMBOL: script
@@ -40,7 +40,7 @@ SYMBOL: command-line
     "=" split1 [ var-param ] [ bool-param ] if* ;
 
 : run-script ( file -- )
-    t "quiet" [
+    t parser-quiet? [
         [ run-file ]
         [ source-file main>> [ execute( -- ) ] when* ] bi
     ] with-variable ;
@@ -63,10 +63,8 @@ SYMBOL: main-vocab-hook
 
 : default-cli-args ( -- )
     global [
-        "quiet" off
         "e" off
         "user-init" on
-        embedded? "quiet" set
         main-vocab "run" set
     ] bind ;
 

basis/command-line/startup/startup.factor

@@ -13,7 +13,6 @@ Common arguments:
     -i=<image>       load Factor image file <image> (default """ write vm file-name write """.image)
     -run=<vocab>     run the MAIN: entry point of <vocab>
     -e=<code>        evaluate <code>
-    -quiet           suppress "Loading vocab.factor" messages
     -no-user-init    suppress loading of .factor-rc
 
 Enter
@@ -25,7 +24,6 @@ from within Factor for more information.
 : command-line-startup ( -- )
     (command-line) parse-command-line
     "help" get "-help" get or "h" get or [ cli-usage ] [
-        "e" get script get or "quiet" [
         load-vocab-roots
         run-user-init
     
@@ -35,7 +33,6 @@ from within Factor for more information.
         ] [
             "run" get run
         ] if
-        ] with-variable
     ] if
 
     output-stream get [ stream-flush ] when*

basis/eval/eval.factor

@@ -18,8 +18,7 @@ SYNTAX: eval( \ eval parse-call( ;
 
 : (eval>string) ( str -- output )
     [
-        "quiet" on
-        parser-notes off
+        parser-quiet? on
         '[ _ (( -- )) (eval) ] [ print-error ] recover
     ] with-string-writer ;
 

basis/html/templates/fhtml/fhtml.factor

@@ -59,8 +59,7 @@ SYNTAX: %> lexer get parse-%> ;
 : parse-template ( string -- quot )
     [
         [
-            "quiet" on
-            parser-notes off
+            parser-quiet? on
             "html.templates.fhtml" use-vocab
             string-lines parse-template-lines
         ] with-file-vocabs

basis/io/launcher/windows/windows-tests.factor

@@ -51,7 +51,7 @@ IN: io.launcher.windows.tests
 
 [ ] [
     <process>
-        console-vm "-quiet" "-run=hello-world" 3array >>command
+        console-vm "-run=hello-world" 3array >>command
         "out.txt" temp-file >>stdout
     try-process
 ] unit-test

basis/listener/listener.factor

@@ -4,7 +4,8 @@ USING: arrays hashtables io kernel math math.parser memory
 namespaces parser lexer sequences strings io.styles
 vectors words generic system combinators continuations debugger
 definitions compiler.units accessors colors prettyprint fry
-sets vocabs.parser source-files.errors locals vocabs vocabs.loader ;
+sets vocabs.parser source-files.errors locals vocabs vocabs.loader
+parser.notes ;
 IN: listener
 
 GENERIC: stream-read-quot ( stream -- quot/f )
@@ -107,6 +108,7 @@ t error-summary? set-global
     ] [ drop ] if ;
 
 :: (listener) ( datastack -- )
+    parser-quiet? off
     error-summary? get [ error-summary ] when
     visible-vars.
     datastack datastack.

basis/tools/deploy/deploy.factor

@@ -8,7 +8,8 @@ IN: tools.deploy
     dup find-vocab-root [ deploy* ] [ no-vocab ] if ;
 
 : deploy-image-only ( vocab image -- ) 
-    [ vm ] 2dip swap dup deploy-config make-deploy-image drop ;
+    [ vm ] 2dip
+    swap dup deploy-config make-deploy-image drop ;
 
 {
     { [ os macosx? ] [ "tools.deploy.macosx" ] }

basis/tools/deploy/shaker/shaker.factor

@@ -481,7 +481,7 @@ SYMBOL: deploy-vocab
     set-startup-quot ;
 
 : startup-stripper ( -- )
-    t "quiet" set-global
+    t parser-quiet? set-global
     f output-stream set-global
     [ V{ "resource:" } clone vocab-roots set-global ]
     "vocabs.loader" startup-hooks get-global set-at ;

core/parser/notes/notes-docs.factor

@@ -1,10 +1,6 @@
-USING: help.markup help.syntax io ;
+USING: help.markup help.syntax io parser.notes ;
 IN: parser.notes
 
-HELP: parser-notes
-{ $var-description "A boolean controlling whether the parser will print various notes. Switched on by default. If a source file is being run for its effect on " { $link output-stream } ", this variable should be switched off, to prevent parser notes from polluting the output." } ;
-
-HELP: parser-notes?
-{ $values { "?" "a boolean" } }
-{ $description "Tests if the parser will print various notes and warnings. To disable parser notes, either set " { $link parser-notes } " to " { $link f } ", or pass the " { $snippet "-quiet" } " command line switch." } ;
+HELP: parser-quiet?
+{ $var-description "A boolean controlling whether the parser will print various notes. Switched on by default. If a source file is being run for its effect on " { $link output-stream } ", this variable should remain switched on, to prevent parser notes from polluting the output." } ;
 

core/parser/notes/notes.factor

@@ -3,16 +3,13 @@
 USING: namespaces kernel source-files lexer accessors io math.parser ;
 IN: parser.notes
 
-SYMBOL: parser-notes
+SYMBOL: parser-quiet?
 
-t parser-notes set-global
-
-: parser-notes? ( -- ? )
-    parser-notes get "quiet" get not and ;
+t parser-quiet? set-global
 
 : note. ( str -- )
-    parser-notes? [
+    parser-quiet? get [
         file get [ path>> write ":" write ] when* 
         lexer get [ line>> number>string write ": " write ] when*
         "Note:" print dup print
-    ] when drop ;
+    ] unless drop ;

core/parser/parser.factor

@@ -5,7 +5,7 @@ sequences strings vectors words words.symbol quotations io
 combinators sorting splitting math.parser effects continuations
 io.files vocabs io.encodings.utf8 source-files classes
 hashtables compiler.units accessors sets lexer vocabs.parser
- slots parser.notes ;
+slots parser.notes ;
 IN: parser
 
 : location ( -- loc )
@@ -135,7 +135,7 @@ print-use-hook [ [ ] ] initialize
     ] with-file-vocabs ;
 
 : parsing-file ( file -- )
-    "quiet" get [ drop ] [ "Loading " write print flush ] if ;
+    parser-quiet? get [ drop ] [ "Loading " write print flush ] if ;
 
 : filter-moved ( assoc1 assoc2 -- seq )
     swap assoc-diff keys [