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


Vocabulary
math.vectors.conversion.private

Inputs and outputs
from-elementan object
to-elementan object
from-typean object
to-typean object
stepsan object


Definition


:: 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 ;