check-vpack ( from-element to-element from-type to-type steps -- )

Vocabulary

math.vectors.conversion.private

Inputs

from-element	an object
to-element	an object
from-type	an object
to-type	an object
steps	an object

Outputs

None

Definition

USING: combinators.short-circuit kernel math.vectors.conversion
;

IN: math.vectors.conversion.private

:: check-vpack
    ( from-element to-element from-type to-type steps -- )
    {
        [ steps 1 = not ]
        [ from-element to-element [ float-type? ] bi@ xor ]
        [
            from-element unsigned-type? to-element
            unsigned-type? not and
        ]
    } 0|| [ from-type to-type bad-vconvert ] when ;