2tetra@ ( p q r s t u v w quot -- )

Vocabulary

math.vectors.private

Inputs

p	an object
q	an object
r	an object
s	an object
t	an object
u	an object
v	an object
w	an object
quot	an object

Outputs

None

Definition

USING: kernel ;

IN: math.vectors.private

: 2tetra@ ( p q r s t u v w quot -- )
    dup [ [ 2bi@ ] curry 4dip ] dip 2bi@ ; inline