From 37cde9e234f7e39c7db339a6faa2a4065fe652ed Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Sat, 12 Jan 2008 23:32:42 -1000
Subject: [PATCH] fix stack effect

---
 extra/crypto/sha1/sha1.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/crypto/sha1/sha1.factor b/extra/crypto/sha1/sha1.factor
index e7ecc4e151..6906ce2b9a 100644
--- 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