(vvx->v-op) ( a b obj rep quot: ( (a) (b) obj rep -- (c) ) -- 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) )

Outputs

c

an object

Definition

USING: accessors kernel ;

IN: math.vectors.simd.private

: (vvx->v-op)
    ( a b obj rep quot: ( (a) (b) obj rep -- (c) ) -- c )
    [ [ simd-unbox ] [ underlying>> ] bi* ] 3dip 2curry 2curry
    make-underlying ; inline