basis/bootstrap/finish-bootstrap.factor

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