bootstrap.image: allow boot image name to be passed on command line.

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 48cef2c15ba09e36eb58d0ead73b168b7740a8b2..2e2ef09153e39415c38beda3872d3b9d7d7388c7 100644 (file)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -9,7 +9,7 @@ hashtables hashtables.private io io.binary io.encodings.binary
 io.files io.pathnames kernel kernel.private layouts make math
 math.order namespaces namespaces.private parser parser.notes
 prettyprint quotations sequences sequences.private source-files
-strings system vectors vocabs words ;
+splitting strings system vectors vocabs words ;
 IN: bootstrap.image
 
 : arch-name ( os cpu -- arch )
@@ -543,6 +543,10 @@ PRIVATE>
     my-arch-name make-image ;
 
 : make-image-main ( -- )
-    command-line get [ make-my-image ] [ [ make-image ] each ] if-empty ;
+    command-line get [
+        make-my-image
+    ] [
+        [ "boot." ?head drop ".image" ?tail drop make-image ] each
+    ] if-empty ;
 
 MAIN: make-image-main