IN: bootstrap.image
: arch ( os cpu -- arch )
- 2dup [ winnt? ] [ ppc? ] bi* or [
+ 2dup [ windows? ] [ ppc? ] bi* or [
[ drop unix ] dip
] unless
[ name>> ] [ name>> ] bi* "-" glue ;
: images ( -- seq )
{
- "winnt-x86.32" "unix-x86.32"
+ "windows-x86.32" "unix-x86.32"
"linux-ppc.32" "linux-ppc.64"
- "winnt-x86.64" "unix-x86.64"
+ "windows-x86.64" "unix-x86.64"
} ;
<PRIVATE