basis/bootstrap/finish-staging.factor

   1 USING: init command-line system namespaces kernel vocabs.loader
   2 io ;
   3
   4 [
   5     boot
   6     [
   7         do-startup-hooks
   8         (command-line) parse-command-line
   9         "run" get run
  10         output-stream get [ stream-flush ] when*
  11     ] with-destructors 0 exit
  12 ] set-boot-quot