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

bootstrap.image: minor cleanup.

db4
John Benediktsson 2015-07-16 11:09:17 -07:00
parent dc9a501040
commit 5825099745
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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