>vector-op-cond ( quot #pick #dup -- quotpair )

Vocabulary

compiler.cfg.intrinsics.simd.backend

Inputs

quot	an object
#pick	an object
#dup	an object

Outputs

quotpair

an object

Definition

IN: compiler.cfg.intrinsics.simd.backend

GENERIC#: >vector-op-cond 2 ( quot #pick #dup -- quotpair )

Methods

USING: arrays compiler.cfg.intrinsics.simd.backend
generalizations kernel make quotations ;

M:: callable >vector-op-cond ( quot #pick #dup -- quotpair )
    #dup quot [vector-op-checked] '[ 2drop @ ] #dup
    '[ % _ nnip ] 2array ;


USING: arrays classes compiler.cfg.intrinsics.simd.backend
generalizations kernel make sequences ;

M:: pair >vector-op-cond ( pair #pick #dup -- quotpair )
    pair first2 :> ( class quot ) #pick class #dup quot
    [vector-op-checked]
    '[ 2drop _ npick _ instance? _ [ f f f ] if ] #dup
    '[ % _ nnip ] 2array ;