fix stack effect

2008-01-12 23:32:42 -10:00 · 2008-01-12 23:32:42 -10:00 · 37cde9e234
parent 8373b63076
commit 37cde9e234
1 changed files with 1 additions and 1 deletions
--- a/extra/crypto/sha1/sha1.factor
+++ b/extra/crypto/sha1/sha1.factor
@ -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