compare-components ( a b rep quot: ( x y -- ? ) -- c )

Vocabulary

math.vectors.simd.intrinsics

Inputs

a	an object
b	an object
rep	an object
quot	a quotation with stack effect ( x y -- ? )

Outputs

c

an object

Definition

USING: accessors kernel math.vectors.simd.intrinsics.private
sequences ;

IN: math.vectors.simd.intrinsics

:: compare-components ( a b rep quot: ( x y -- ? ) -- c )
    a b rep 2byte>rep-array
    [ quot call -1 0 ? ] rep >bitwise-vector-rep <rep-array>
    2map-as underlying>> ; inline