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

checksums.md5: minor thing.

char-rename
John Benediktsson 2016-07-11 14:02:33 -07:00
parent f0d47b7329
commit de4495875f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/checksums/md5/md5.factor
View File

@ -185,8 +185,8 @@ M: md5-state checksum-block
[ (process-md5-block-I) ] [ (process-md5-block-I) ]
} 2cleave } 2cleave
] [ ] [
nip update-md5 update-md5
] 2bi ; ] bi ;
: md5>checksum ( md5 -- bytes ) : md5>checksum ( md5 -- bytes )
state>> underlying>> byte-array>le ; state>> underlying>> byte-array>le ;