parser.notes sets parser-quiet? to t in the global namespace. stage2.factor runs...

diff --git a/basis/bootstrap/finish-bootstrap.factor b/basis/bootstrap/finish-bootstrap.factor
index 8d6e23c48597fe233c4014cb54e80cafbb4879e2..a8b68ba41994312265abf75d13de246a83c5350d 100644 (file)
--- a/basis/bootstrap/finish-bootstrap.factor
+++ b/basis/bootstrap/finish-bootstrap.factor
@@ -1,6 +1,10 @@
-USING: init command-line.startup debugger system continuations ;
+USING: init command-line.startup debugger system
+continuations parser.notes namespaces ;
 
 [
+    ! Set parser-quiet? to match parser.notes top-level form
+    t parser-quiet? set-global
+    
     boot
     do-startup-hooks
     [ command-line-startup ] [ print-error 1 exit ] recover

diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor
index edea2252c2fcf7eef1b122011bed2ea0923a528f..4886ec124d4e83bcf7c74e6a781662baef64bd1f 100644 (file)
--- a/basis/bootstrap/stage2.factor
+++ b/basis/bootstrap/stage2.factor
@@ -62,7 +62,9 @@ SYMBOL: bootstrap-time
     ! We time bootstrap
     nano-count
 
-    parser-quiet? off
+    ! parser.notes sets this to t in the global namespace.
+    ! We have to change it back in finish-bootstrap.factor
+    f parser-quiet? set-global
 
     default-image-name "output-image" set-global