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

remove >r r>

db4
Doug Coleman 2008-12-14 00:51:00 -06:00
parent 6671193879
commit 25ef292d60
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/crypto/hmac/hmac.factor
View File

@ -10,15 +10,15 @@ IN: crypto.hmac
initialize-sha1 process-sha1-block initialize-sha1 process-sha1-block
stream>sha1 get-sha1 stream>sha1 get-sha1
initialize-sha1 initialize-sha1
>r process-sha1-block r> [ process-sha1-block ]
process-sha1-block get-sha1 ; [ process-sha1-block ] bi* get-sha1 ;
: md5-hmac ( Ko Ki -- hmac ) : md5-hmac ( Ko Ki -- hmac )
initialize-md5 process-md5-block initialize-md5 process-md5-block
stream>md5 get-md5 stream>md5 get-md5
initialize-md5 initialize-md5
>r process-md5-block r> [ process-md5-block ]
process-md5-block get-md5 ; [ process-md5-block ] bi* get-md5 ;
: seq-bitxor ( seq seq -- seq ) : seq-bitxor ( seq seq -- seq )
[ bitxor ] 2map ; [ bitxor ] 2map ;