basis/bootstrap/finish-bootstrap.factor

   1 USING: init command-line debugger system continuations
   2 namespaces eval kernel vocabs.loader io ;
   3
   4 [
   5     boot
   6     do-startup-hooks
   7     [
   8         (command-line) parse-command-line
   9         load-vocab-roots
  10         run-user-init
  11         "e" get [ eval( -- ) ] when*
  12         ignore-cli-args? not script get and
  13         [ run-script ] [ "run" get run ] if*
  14         output-stream get [ stream-flush ] when*
  15         0 exit
  16     ] [ print-error 1 exit ] recover
  17 ] set-boot-quot