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

diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index abd97d2b06ae7926ea24e49fd47107264369d2d6..09db6b2e63ead9add7d836057f5a1762bed41a79 100644 (file)
--- 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 -- )