From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Dec 2021 18:39:42 +0000 (-0800)
Subject: bootstrap.image: allow boot image name to be passed on command line.
X-Git-Tag: 0.99~2209
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=63e100c67e655298d9c4d0bf7857b297c8201616

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 48cef2c15b..2e2ef09153 100644
--- 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