tar: Fix comment, just trim tail.
parent
25bf840d79
commit
d11737ac8e
|
@ -20,9 +20,9 @@ linkname magic version uname gname devmajor devminor prefix ;
|
||||||
|
|
||||||
ERROR: checksum-error header ;
|
ERROR: checksum-error header ;
|
||||||
|
|
||||||
: trim-string ( seq -- newseq ) [ "\0 " member? ] trim ;
|
: trim-string ( seq -- newseq ) [ "\0 " member? ] trim-tail ;
|
||||||
|
|
||||||
: read-c-string ( n -- str/f )
|
: read-c-string ( n -- str )
|
||||||
read [ zero? ] trim-tail "" like ;
|
read [ zero? ] trim-tail "" like ;
|
||||||
|
|
||||||
: read-tar-header ( -- obj )
|
: read-tar-header ( -- obj )
|
||||||
|
|
Loading…
Reference in New Issue