update-md5 ( md5 -- )

Vocabulary

checksums.md5.private

Inputs

md5

an object

Outputs

None

Definition

USING: accessors kernel math.bitwise sequences ;

IN: checksums.md5.private

: update-md5 ( md5 -- )
    [ state>> ] [ old-state>> [ w+ ] 2map dup clone ] [ ] tri
    [ old-state<< ] [ state<< ] bi ; inline