From 58250997459843e7666a957c947f11130077af69 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 11:09:17 -0700
Subject: [PATCH] bootstrap.image: minor cleanup.

---
 basis/bootstrap/image/image.factor | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index b0bf307456..a874c05c49 100755
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -5,8 +5,8 @@ byte-arrays classes classes.builtin classes.private
 classes.tuple classes.tuple.private combinators
 combinators.short-circuit combinators.smart
 compiler.codegen.relocation compiler.units fry generic
-generic.single.private grouping hashtables hashtables.private
-io io.binary io.encodings.binary io.files io.pathnames kernel
+generic.single.private grouping hashtables hashtables.private io
+io.binary io.encodings.binary io.files io.pathnames kernel
 kernel.private layouts locals make math math.order namespaces
 namespaces.private parser parser.notes prettyprint quotations
 sequences sequences.private source-files strings system vectors
@@ -17,7 +17,7 @@ IN: bootstrap.image
     2dup [ windows? ] [ ppc? ] bi* or [
       [ drop unix ] dip
     ] unless
-    [ name>> ] [ name>> ] bi* "-" glue ;
+    [ name>> ] bi@ "-" glue ;
 
 : my-arch ( -- arch )
     os cpu arch ;
@@ -28,11 +28,11 @@ IN: bootstrap.image
 : my-boot-image-name ( -- string )
     my-arch boot-image-name ;
 
-: images ( -- seq )
+CONSTANT: images
     {
         "windows-x86.32" "unix-x86.32"
         "windows-x86.64" "unix-x86.64"
-    } ;
+    }
 
 <PRIVATE