factor/basis/bootstrap/finish-bootstrap.factor

20 lines
549 B
Factor
Raw Normal View History

2008-12-08 15:58:00 -05:00
USING: init command-line debugger system continuations
namespaces eval kernel vocabs.loader io destructors ;
2008-12-08 15:58:00 -05:00
[
boot
[
do-startup-hooks
[
(command-line) parse-command-line
load-vocab-roots
run-user-init
"e" get [ eval( -- ) ] when*
ignore-cli-args? not script get and
[ run-script ] [ "run" get run ] if*
output-stream get [ stream-flush ] when*
0
] [ print-error 1 ] recover
] with-destructors exit
2008-12-08 15:58:00 -05:00
] set-boot-quot