update.backup: run backup in a try

2008-07-11 15:45:06 -05:00 · 2008-07-11 15:45:06 -05:00 · d03c97174c
parent b9e3d55959
commit d03c97174c
1 changed files with 7 additions and 4 deletions
--- a/extra/update/backup/backup.factor
+++ b/extra/update/backup/backup.factor
@ -1,5 +1,5 @@

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

 IN: update.backup

@ -20,6 +20,9 @@ IN: update.backup

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