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

checksums.common: don't need next-level anymore thanks to cleanup.

char-rename
Doug Coleman 2016-07-10 11:40:16 -05:00
parent 6b9d6c00c0
commit f7e2f3af79
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/checksums/common/common.factor
View File

@ -38,9 +38,6 @@ GENERIC: checksum-block ( bytes checksum-state -- )
GENERIC: get-checksum ( checksum-state -- value )
: next-level ( n size -- n' )
2dup mod [ + ] [ - + ] if-zero ; inline
! Update the bytes-read before calculating checksum in case
! checksum uses this in the calculation.
:: add-checksum-bytes ( checksum-state data -- checksum-state' )