From 2ce0db568141740ef4a9b904a4d7702b7ad0b2a6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 25 Oct 2012 08:35:16 -0700 Subject: [PATCH] tar: Don't throw an error if the file does not exist to unlink. --- extra/tar/tar.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor index abd97d2b06..09db6b2e63 100644 --- 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 -- )