   
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: boot-image ( -- filename ) `{ "boot" ,[ cpu ] "image" } "." join ;
-
 : target ( -- target ) `{ ,[ os ] %[ cpu "." split ] } "-" join ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  "builder: vm compile" throw
] if

"wget http://factorcode.org/images/latest/" boot-image append system
0 =
[ ]
[

  "builder: image download" throw
] if

[
  "./factor -i=" boot-image-name " -no-user-init > ../boot-log"
  3append
  system
]
benchmark nip
"../boot-time" <file-writer> [ . ] with-stream
0 =
