steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix typos

db4
Doug Coleman 2008-03-08 00:13:35 -06:00
parent 28182f06f9
commit 4de55d0716
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/crypto/sha1/sha1.factor
View File

@ -6,7 +6,7 @@ IN: crypto.sha1
! Implemented according to RFC 3174. ! 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 : get-wth ( n -- wth ) w get nth ; inline
: shift-wth ( n -- x ) get-wth 1 bitroll-32 ; inline : shift-wth ( n -- x ) get-wth 1 bitroll-32 ; inline

2
extra/crypto/sha2/sha2.factor
View File

@ -4,7 +4,7 @@ IN: crypto.sha2
<PRIVATE <PRIVATE
SYMBOL: vars M K H S0 S1 process-M word-size block-size >word ; SYMBOLS: vars M K H S0 S1 process-M word-size block-size >word ;
: a 0 ; : a 0 ;
: b 1 ; : b 1 ;