http.download: ?download-to -> download-to-once

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

diff --git a/basis/http/download/download.factor b/basis/http/download/download.factor
index 59a71199aceca9f498d253d277a0a37b83e9b52d..1f54064206e2a4fa32c252e22cc8d68044244e34 100644 (file)
--- a/basis/http/download/download.factor
+++ b/basis/http/download/download.factor
@@ -76,16 +76,16 @@ IN: http.download
 : download-temporary-name ( url -- prefix suffix )
     [ "temp." ".temp" ] dip download-name prepend ;
 
-: download-file-to ( url file -- path )
+PRIVATE>
+
+: download-to ( url file -- path )
     [
         [ download-temporary-name binary ] keep
         '[ _ http-write-request ] with-unique-file-writer
     ] dip [ move-file ] keep ;
 
-PRIVATE>
-
-: download-to ( url file -- path )
-    dup file-exists? [ nip ] [ download-file-to ] if ;
+: download-once-to ( url file -- path )
+    dup file-exists? [ nip ] [ download-to ] if ;
 
 : download-outdated-to ( url file duration -- path )
     2dup delete-when-old [ drop download-to ] [ drop nip ] if ;