tar: Don't throw an error if the file does not exist to unlink.
parent
6e572cfff1
commit
2ce0db5681
|
@ -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 -- )
|
||||||
|
|
Loading…
Reference in New Issue