17 lines
444 B
Factor
17 lines
444 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*
|
||
|
|
] [ print-error 1 exit ] recover
|
||
|
|
] set-boot-quot
|