   [ my-arch download-image ]
   [ ]
   [ "builder: image download" email-string ]
-  cleanup ;
+  cleanup
+  flush ;
 
 : bootstrap ( -- desc )
   `{

  stamp> make-directory
  stamp> cd ;

: record-git-id ( -- )
  { "git" "show" } <process-stream> [ readln ] with-stream " " split second
  "../git-id" log-object ;

: make-clean ( -- desc ) { "make" "clean" } ;



USING: kernel io io.files io.launcher io.sockets hashtables math threads
       system continuations namespaces sequences splitting math.parser
       prettyprint tools.time calendar bake vars http.client
       combinators bootstrap.image bootstrap.image.download
