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

[factor.git] / basis / bootstrap / image / image.factor

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 12e5e77075d3690907e574be6619b8667e3b7250..dda459e5956374ef8b09e6c95036be6733b526cf 100755 (executable)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -13,22 +13,22 @@ sequences sequences.private source-files strings system vectors
 vocabs words ;
 IN: bootstrap.image
 
-: arch ( os cpu -- arch )
+: arch-name ( os cpu -- arch )
     2dup [ windows? ] [ ppc? ] bi* or [
       [ drop unix ] dip
     ] unless
     [ name>> ] bi@ "-" glue ;
 
-: my-arch ( -- arch )
-    os cpu arch ;
+: my-arch-name ( -- arch )
+    os cpu arch-name ;
 
 : boot-image-name ( arch -- string )
     "boot." ".image" surround ;
 
 : my-boot-image-name ( -- string )
-    my-arch boot-image-name ;
+    my-arch-name boot-image-name ;
 
-CONSTANT: image-strings
+CONSTANT: image-names
     {
         "windows-x86.32" "unix-x86.32"
         "windows-x86.64" "unix-x86.64"
@@ -596,7 +596,7 @@ PRIVATE>
     ] with-variables ;
 
 : make-images ( -- )
-    image-strings [ make-image ] each ;
+    image-names [ make-image ] each ;
 
 : make-my-image ( -- )
-    my-arch make-image ;
+    my-arch-name make-image ;