From d03c97174c19e70f0b4f078596011daf4837ea78 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 11 Jul 2008 15:45:06 -0500
Subject: [PATCH] update.backup: run backup in a try

---
 extra/update/backup/backup.factor | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/extra/update/backup/backup.factor b/extra/update/backup/backup.factor
index bb6d17f6dd..0dcf853b98 100644
--- 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 ;