if-both-vectors-match ( a b rep t f -- )

Vocabulary

math.vectors.simd.private

Inputs

a	an object
b	an object
rep	an object
t	an object
f	an object

Outputs

None

Definition

USING: kernel math.vectors.simd ;

IN: math.vectors.simd.private

: if-both-vectors-match ( a b rep t f -- )
    [
        3dup
        [ drop [ simd-128? ] both? ]
        [ [ [ simd-rep ] ] dip [ eq? ] curry compose both? ] 3bi
        and
    ] 2dip if ; inline