factor: arch -> arch-name. fix breakage caused by other patch.

[factor.git] / extra / update / backup / backup.factor

diff --git a/extra/update/backup/backup.factor b/extra/update/backup/backup.factor
index 76e65f4c65ac1475df2607d87a533f947324af16..3f7dc8f5f3b2896babd6ab22773a2dec8d6c57ca 100644 (file)
--- a/extra/update/backup/backup.factor
+++ b/extra/update/backup/backup.factor
@@ -4,7 +4,7 @@ IN: update.backup
 
 : backup-boot-image ( -- )
   my-boot-image-name
-  { "boot." my-arch "-" [ "datestamp" get ] ".image" } to-string
+  { "boot." my-arch-name "-" [ "datestamp" get ] ".image" } to-string
   move-file ;
 
 : backup-image ( -- )