steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.image: allow making other images in main.

master
John Benediktsson 2020-05-17 19:53:18 -07:00
parent 160d1b4415
commit d85d3e861c
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
basis/bootstrap/image/image.factor
View File

@ -1,15 +1,15 @@
! Copyright (C) 2004, 2011 Slava Pestov. ! Copyright (C) 2004, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-arrays classes classes.builtin USING: accessors arrays assocs byte-arrays classes
classes.private classes.tuple classes.tuple.private combinators classes.builtin classes.private classes.tuple
combinators.short-circuit combinators.smart classes.tuple.private combinators combinators.short-circuit
compiler.codegen.relocation compiler.units fry generic combinators.smart command-line compiler.codegen.relocation
generic.single.private grouping hashtables hashtables.private io compiler.units fry generic generic.single.private grouping
io.binary io.encodings.binary io.files io.pathnames kernel hashtables hashtables.private io io.binary io.encodings.binary
kernel.private layouts locals make math math.order namespaces io.files io.pathnames kernel kernel.private layouts locals make
namespaces.private parser parser.notes prettyprint quotations math math.order namespaces namespaces.private parser
sequences sequences.private source-files strings system vectors parser.notes prettyprint quotations sequences sequences.private
vocabs words ; source-files strings system vectors vocabs words ;
IN: bootstrap.image IN: bootstrap.image
: arch-name ( os cpu -- arch ) : arch-name ( os cpu -- arch )
@ -541,4 +541,7 @@ PRIVATE>
: make-my-image ( -- ) : make-my-image ( -- )
my-arch-name make-image ; my-arch-name make-image ;
MAIN: make-my-image : make-image-main ( -- )
command-line get [ make-my-image ] [ [ make-image ] each ] if-empty ;
MAIN: make-image-main