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

checksums: make add-checksum-bytes a generic word

char-rename
Alexander Iljin 2016-06-21 15:21:17 +03:00 committed by John Benediktsson
parent e606ce278d
commit 66b9770f77
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/checksums/checksums.factor
View File

@ -23,9 +23,11 @@ GENERIC: initialize-checksum-state ( checksum -- checksum-state )
GENERIC: checksum-block ( bytes checksum-state -- ) GENERIC: checksum-block ( bytes checksum-state -- )
GENERIC# add-checksum-bytes 1 ( checksum-state bytes -- checksum-state' )
GENERIC: get-checksum ( checksum-state -- value ) GENERIC: get-checksum ( checksum-state -- value )
: add-checksum-bytes ( checksum-state data -- checksum-state ) M: checksum-state add-checksum-bytes ( checksum-state data -- checksum-state' )
over bytes>> [ push-all ] keep over bytes>> [ push-all ] keep
[ dup length pick block-size>> >= ] [ dup length pick block-size>> >= ]
[ [