23 lines
515 B
Factor
23 lines
515 B
Factor
USING: init command-line debugger system continuations
|
|
namespaces eval kernel vocabs.loader io ;
|
|
|
|
[
|
|
boot
|
|
do-startup-hooks
|
|
[
|
|
(command-line) parse-command-line
|
|
load-vocab-roots
|
|
run-user-init
|
|
|
|
"e" get script get or [
|
|
"e" get [ eval( -- ) ] when*
|
|
script get [ run-script ] when*
|
|
] [
|
|
"run" get run
|
|
] if
|
|
|
|
output-stream get [ stream-flush ] when*
|
|
0 exit
|
|
] [ print-error 1 exit ] recover
|
|
] set-startup-quot
|