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

use constant in tar, remove ignore-errors

db4
Doug Coleman 2009-02-12 16:40:45 -06:00
parent 2e33f13c40
commit 1f6c50fd91
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/tar/tar.factor
View File

@ -5,8 +5,8 @@ system tools.hexdump io.encodings.binary summary accessors
io.backend byte-arrays ; io.backend byte-arrays ;
IN: tar IN: tar
: zero-checksum 256 ; inline CONSTANT: zero-checksum 256
: block-size 512 ; inline CONSTANT: block-size 512
TUPLE: tar-header name mode uid gid size mtime checksum typeflag TUPLE: tar-header name mode uid gid size mtime checksum typeflag
linkname magic version uname gname devmajor devminor prefix ; linkname magic version uname gname devmajor devminor prefix ;
@ -89,8 +89,7 @@ M: unknown-typeflag summary ( obj -- str )
! Symlink ! Symlink
: typeflag-2 ( header -- ) : typeflag-2 ( header -- )
[ name>> ] [ linkname>> ] bi [ name>> ] [ linkname>> ] bi make-link ;
[ make-link ] 2curry ignore-errors ;
! character special ! character special
: typeflag-3 ( header -- ) unknown-typeflag ; : typeflag-3 ( header -- ) unknown-typeflag ;