1 USING: accessors arrays continuations io.directories io.files.info
2 io.files.temp io.launcher kernel layouts math sequences system
3 tools.deploy.backend tools.deploy.config.editor ;
6 : shake-and-bake ( vocab -- )
7 [ "test.image" temp-file delete-file ] ignore-errors
9 [ vm "test.image" temp-file ] dip
10 dup deploy-config make-deploy-image
13 : small-enough? ( n -- ? )
14 [ "test.image" temp-file file-info size>> ] [ cell 4 / * ] bi* <= ;
16 : run-temp-image ( -- )
18 "-i=" "test.image" temp-file append