set-first4-unsafe ( seq a0 a1 a2 a3 -- )

Vocabulary

crypto.aes.utils

Inputs

seq	an object
a0	an object
a1	an object
a2	an object
a3	an object

Outputs

None

Definition

USING: sequences.private ;

IN: crypto.aes.utils

:: set-first4-unsafe ( seq a0 a1 a2 a3 -- )
    a0 0 seq set-nth-unsafe a1 1 seq set-nth-unsafe
    a2 2 seq set-nth-unsafe a3 3 seq set-nth-unsafe ;