diff --git a/extra/crypto/sha1/sha1.factor b/extra/crypto/sha1/sha1.factor index e2398311b7..efccbc6e5b 100644 --- a/extra/crypto/sha1/sha1.factor +++ b/extra/crypto/sha1/sha1.factor @@ -6,7 +6,7 @@ IN: crypto.sha1 ! Implemented according to RFC 3174. -SYMBOL: h0 h1 h2 h3 h4 A B C D E w K ; +SYMBOLS: h0 h1 h2 h3 h4 A B C D E w K ; : get-wth ( n -- wth ) w get nth ; inline : shift-wth ( n -- x ) get-wth 1 bitroll-32 ; inline diff --git a/extra/crypto/sha2/sha2.factor b/extra/crypto/sha2/sha2.factor index 07d38b83bb..6935db82a9 100644 --- a/extra/crypto/sha2/sha2.factor +++ b/extra/crypto/sha2/sha2.factor @@ -4,7 +4,7 @@ IN: crypto.sha2 word ; +SYMBOLS: vars M K H S0 S1 process-M word-size block-size >word ; : a 0 ; : b 1 ;