From e44bf07f52f4d36bea4834723ba505c522287d56 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 24 Mar 2024 19:45:04 -0500
Subject: [PATCH] http.download: fix bug in deleting zero-sized files word

---
 basis/http/download/download.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/basis/http/download/download.factor b/basis/http/download/download.factor
index 36d2b0e7b3..59a71199ac 100644
--- a/basis/http/download/download.factor
+++ b/basis/http/download/download.factor
@@ -24,8 +24,12 @@ IN: http.download
 
 : file-zero-size? ( path -- ? ) 0 file-size= ;
 
-: delete-when-zero-size ( path -- deleted? )
-    dup file-zero-size? [ ?delete-file t ] [ drop f ] if ;
+: delete-when-zero-size ( path -- deleted-or-not-exists? )
+    dup file-exists? [
+        dup file-zero-size? [ ?delete-file t ] [ drop f ] if
+    ] [
+        drop t
+    ] if ;
 
 : delete-when-file-size-mismatches? ( file size -- deleted? )
     dupd file-size= [ drop f ] [ ?delete-file t ] if ;
-- 
2.34.1