fix stack effect

db4
Doug Coleman 2008-01-12 23:32:42 -10:00
parent 8373b63076
commit 37cde9e234
1 changed files with 1 additions and 1 deletions
extra/crypto/sha1

View File

@ -126,7 +126,7 @@ SYMBOL: K
: string>sha1-bignum ( string -- n ) string>sha1 be> ;
: file>sha1 ( file -- sha1 ) <file-reader> stream>sha1 ;
: string>sha1-interleave ( string -- )
: string>sha1-interleave ( string -- seq )
[ zero? ] left-trim
dup length odd? [ 1 tail ] when
seq>2seq [ string>sha1 ] 2apply