poly1305-process ( message r p -- acc )

Vocabulary

crypto.poly1305.private

Inputs

message	an object
r	an object
p	an object

Outputs

acc

an object

Definition

USING: grouping sequences ;

IN: crypto.poly1305.private

:: poly1305-process ( message r p -- acc )
    0 :> acc! message 16 group
    [| block | acc block r p poly1305-accumulate acc! ] each acc
    ;