http.download: fix bug in deleting zero-sized files word

[factor.git] / basis / http / download / download.factor

diff --git a/basis/http/download/download.factor b/basis/http/download/download.factor
index 36d2b0e7b39fa030961a20f4e8902d459c1232f7..59a71199aceca9f498d253d277a0a37b83e9b52d 100644 (file)
--- 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 ;