parser.notes sets parser-quiet? to t in the global namespace. stage2.factor runs its code in the global namespace, so 1) make it more clear that we're setting the global parser-quiet? and 2) change it back before finishing bootstrap to match parser.notes top-level form
parent
f8b4d2d2f9
commit
f4c66e8be7
|
@ -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
|
boot
|
||||||
do-startup-hooks
|
do-startup-hooks
|
||||||
[ command-line-startup ] [ print-error 1 exit ] recover
|
[ command-line-startup ] [ print-error 1 exit ] recover
|
||||||
|
|
|
@ -62,7 +62,9 @@ SYMBOL: bootstrap-time
|
||||||
! We time bootstrap
|
! We time bootstrap
|
||||||
nano-count
|
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
|
default-image-name "output-image" set-global
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue