make-matrix4 ( ..a quot: ( ..a -- ..b c1 c2 c3 c4 ) -- ..b c )

Vocabulary

math.matrices.simd.private

Inputs

quot	a quotation with stack effect ( ..a -- ..b c1 c2 c3 c4 )

Outputs

c

an object

Definition

USING: classes.struct kernel math.matrices.simd ;

IN: math.matrices.simd.private

: make-matrix4
    ( ..a quot: ( ..a -- ..b c1 c2 c3 c4 ) -- ..b c )
    matrix4 (struct) swap dip set-columns ; inline