checksum-last-block ( state -- )

Vocabulary

checksums.sha.private

Inputs

state

an object

Outputs

None

Definition

USING: accessors checksums.common kernel sequences ;

IN: checksums.sha.private

: checksum-last-block ( state -- )
    [ bytes>> t ] [ bytes-read>> pad-last-block ] [ ] tri
    [ checksum-block ] curry each ; inline