2008-12-08 15:58:00 -05:00
|
|
|
USING: init command-line debugger system continuations
|
2009-10-20 18:26:10 -04:00
|
|
|
namespaces eval kernel vocabs.loader io destructors ;
|
2008-12-08 15:58:00 -05:00
|
|
|
|
|
|
|
[
|
|
|
|
boot
|
|
|
|
[
|
2009-10-20 18:26:10 -04:00
|
|
|
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
|