factor/extra/update/backup/backup.factor

USING: namespaces debugger io.files bootstrap.image builder.util ;

IN: update.backup

: backup-boot-image ( -- )
  my-boot-image-name
  { "boot." my-arch "-" [ "datestamp" get ] ".image" } to-string  
  move-file ;

: backup-image ( -- )
  "factor.image"
  { "factor" "-" [ "datestamp" get ] ".image" } to-string
  move-file ;

: backup-vm ( -- )
  "factor"
  { "factor" "-" [ "datestamp" get ] } to-string
  move-file ;

: backup ( -- )
  datestamp "datestamp" set
    [
      backup-boot-image
      backup-image
      backup-vm
    ]
  try ;