steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums: fix stack effect of with-checksum-state.

char-rename
John Benediktsson 2016-08-02 10:58:48 -07:00
parent 5794ca6834
commit 55df8437df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/checksums/checksums.factor
View File

@ -38,7 +38,7 @@ GENERIC: initialize-checksum-state ( checksum -- checksum-state )
GENERIC# add-checksum-bytes 1 ( checksum-state data -- checksum-state )
GENERIC: get-checksum ( checksum-state -- value )
: with-checksum-state ( ... checksum quot: ( ... checksum-state -- ..b ) -- ..b value )
: with-checksum-state ( ..a checksum quot: ( ..a checksum-state -- ..b ) -- ..b )
[ initialize-checksum-state ] dip with-disposal ; inline
: add-checksum-stream ( checksum-state stream -- checksum-state )