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

fix sha1-interleave

db4
Doug Coleman 2008-04-04 12:02:12 -05:00
parent d36c8620de
commit 87a705e782
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/crypto/sha1/sha1.factor
View File

@ -125,4 +125,4 @@ SYMBOLS: h0 h1 h2 h3 h4 A B C D E w K ;
[ zero? ] left-trim [ zero? ] left-trim
dup length odd? [ 1 tail ] when dup length odd? [ 1 tail ] when
seq>2seq [ byte-array>sha1 ] bi@ seq>2seq [ byte-array>sha1 ] bi@
swap 2seq>seq ; 2seq>seq ;