vvx->v-op ( a b obj rep quot: ( (a) (b) obj rep -- (c) ) fallback-quot -- c )

Vocabulary

math.vectors.simd.private

Inputs

a	an object
b	an object
obj	an object
rep	an object
quot	a quotation with stack effect ( (a) (b) obj rep -- (c) )
fallback-quot	an object

Outputs

c

an object

Definition

USING: kernel ;

IN: math.vectors.simd.private

:: vvx->v-op
    ( a b obj rep quot: ( (a) (b) obj rep -- (c) ) fallback-quot -- c )
    a b rep
    [ obj swap quot (vvx->v-op) ]
    [ drop obj fallback-quot call ] if-both-vectors-match ;
    inline