arch-name ( os cpu -- arch )

Vocabulary

bootstrap.image

Inputs

os	an object
cpu	an object

Outputs

arch

an object

Definition

USING: accessors kernel sequences system ;

IN: bootstrap.image

: arch-name ( os cpu -- arch )
    2dup [ windows? ] [ ppc? ] bi* or
    [ [ drop unix ] dip ] unless [ name>> ] bi@ "-" glue ;