2 USING: namespaces debugger io.files bootstrap.image update.util ;
6 : backup-boot-image ( -- )
8 { "boot." my-arch "-" [ "datestamp" get ] ".image" } to-string
13 { "factor" "-" [ "datestamp" get ] ".image" } to-string
18 { "factor" "-" [ "datestamp" get ] } to-string
22 datestamp "datestamp" set