18 lines
465 B
Factor
18 lines
465 B
Factor
USING: init command-line debugger system continuations
|
|
namespaces eval kernel vocabs.loader io ;
|
|
|
|
[
|
|
boot
|
|
do-init-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 exit
|
|
] [ print-error 1 exit ] recover
|
|
] set-boot-quot
|