with-checksum-state ( ..a checksum quot: ( ..a checksum-state -- ..b ) -- ..b )


Vocabulary
checksums

Inputs
checksuman object
quota quotation with stack effect ( ..a checksum-state -- ..b )


Outputs
None

Definition
USING: destructors kernel ;

IN: checksums

: with-checksum-state
( ..a checksum quot: ( ..a checksum-state -- ..b ) -- ..b )
[ initialize-checksum-state ] dip with-disposal ; inline