inline-accessor ( block #call quot test -- block' )

Vocabulary

compiler.cfg.intrinsics.alien

Inputs

block	a basic-block
#call	a #call
quot	a quotation
test	a quotation

Outputs

block'

a basic-block

Word description

Combinator used to simplify writing intrinsic emitting code. If the 'test' quotation yields t when called on the '#call' nodes inputs, then the 'quot' quotation is used to emit intrinsic instructions. Otherwise a primitive call is emitted.

Definition

USING: compiler.cfg.builder.blocks
compiler.tree.propagation.info kernel ;

IN: compiler.cfg.intrinsics.alien

:: inline-accessor ( block #call quot test -- block' )
    #call node-input-infos :> infos infos test call
    [ infos quot call block ] [ block #call emit-primitive ] if
    ; inline