tar: Don't throw an error if the file does not exist to unlink.

db4
Doug Coleman 2012-10-25 08:35:16 -07:00
parent 6e572cfff1
commit 2ce0db5681
1 changed files with 1 additions and 1 deletions

View File

@ -221,7 +221,7 @@ M: symbolic-link do-link
! FIXME: linux tar calls unlinkat and makelinkat ! FIXME: linux tar calls unlinkat and makelinkat
: make-links ( -- ) : make-links ( -- )
to-link get [ to-link get [
[ name>> delete-file ] [ do-link ] bi [ [ name>> delete-file ] [ 2drop ] recover ] [ do-link ] bi
] each ; ] each ;
: untar ( path -- ) : untar ( path -- )