vv->x-op ( a b rep quot: ( (a) (b) rep -- obj ) fallback-quot -- obj )

Vocabulary

math.vectors.simd.private

Inputs

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

Outputs

obj

an object

Definition

USING: kernel ;

IN: math.vectors.simd.private

: vv->x-op
    ( a b rep quot: ( (a) (b) rep -- obj ) fallback-quot -- obj )
    [ [ (vv->x-op) ] curry ] [ [ [ drop ] ] dip compose ] bi*
    if-both-vectors-match ; inline