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

use bi, call >string on c-strings from tar

db4
Doug Coleman 2009-05-09 13:54:18 -05:00 committed by Sascha Matzke
parent 097ce4c6dd
commit 6913653d62
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,8 +31,8 @@ MEMO: opad ( -- seq ) 64 HEX: 5c <array> ;
: init-hmac ( K -- o i ) : init-hmac ( K -- o i )
64 0 pad-tail 64 0 pad-tail
[ opad seq-bitxor ] keep [ opad seq-bitxor ]
ipad seq-bitxor ; [ ipad seq-bitxor ] bi ;
PRIVATE> PRIVATE>

2
extra/tar/tar.factor
View File

@ -18,7 +18,7 @@ ERROR: checksum-error header ;
: trim-string ( seq -- newseq ) [ "\0 " member? ] trim ; : trim-string ( seq -- newseq ) [ "\0 " member? ] trim ;
: read-c-string ( n -- str/f ) : read-c-string ( n -- str/f )
read [ zero? ] trim-tail [ f ] when-empty ; read [ zero? ] trim-tail [ f ] when-empty >string ;
: read-tar-header ( -- obj ) : read-tar-header ( -- obj )
\ tar-header new \ tar-header new