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

2012-10-25 08:35:16 -07:00 · 2012-10-25 08:35:16 -07:00 · 2ce0db5681
parent 6e572cfff1
commit 2ce0db5681
1 changed files with 1 additions and 1 deletions
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@ -221,7 +221,7 @@ M: symbolic-link do-link
 ! FIXME: linux tar calls unlinkat and makelinkat
 : make-links ( -- )
    to-link get [
-        [ name>> delete-file ] [ do-link ] bi
+        [ [ name>> delete-file ] [ 2drop ] recover ] [ do-link ] bi
    ] each ;

 : untar ( path -- )