fix sha1-interleave

2008-04-04 12:02:12 -05:00 · 2008-04-04 12:02:12 -05:00 · 87a705e782
parent d36c8620de
commit 87a705e782
1 changed files with 1 additions and 1 deletions
--- a/extra/crypto/sha1/sha1.factor
+++ b/extra/crypto/sha1/sha1.factor
@ -125,4 +125,4 @@ SYMBOLS: h0 h1 h2 h3 h4 A B C D E w K ;
    [ zero? ] left-trim
    dup length odd? [ 1 tail ] when
    seq>2seq [ byte-array>sha1 ] bi@
-    swap 2seq>seq ;
+    2seq>seq ;