basis/bootstrap/finish-staging.factor

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