>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 ] ] dip compose #dup
    [ [ % ] ] dip [ nnip ] curry compose 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 ] ] dip [ npick ] curry compose ] dip
        [ instance? ] curry compose
    ] dip [ [ f f f ] if ] curry compose #dup [ [ % ] ] dip
    [ nnip ] curry compose 2array ;