vn->v-op ( a n rep quot: ( (a) n rep -- (c) ) fallback-quot -- c )

Vocabulary

math.vectors.simd.private

Inputs

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

Outputs

c

an object

Definition

USING: kernel math ;

IN: math.vectors.simd.private

: vn->v-op
    ( a n rep quot: ( (a) n rep -- (c) ) fallback-quot -- c )
    drop [ [ simd-unbox ] [ >fixnum ] bi* ] 2dip 3curry
    make-underlying ; inline