emit-vector-op ( trials params-quot op-quot literal-preds -- quot )

Vocabulary

compiler.cfg.intrinsics.simd.backend

Inputs

trials	an object
params-quot	an object
op-quot	an object
literal-preds	an object

Outputs

quot

an object

Definition

USING: compiler.cfg.stacks kernel ;

IN: compiler.cfg.intrinsics.simd.backend

:: emit-vector-op
    ( trials params-quot op-quot literal-preds -- quot )
    params-quot trials op-quot literal-preds [
        [ [ [ dip ] curry ] dip ] dip curry [ ds-push ] compose
        compose
    ] dip [ if-literals-match ] 2curry ;