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

[factor.git] / extra / geo-ip / geo-ip.factor

diff --git a/extra/geo-ip/geo-ip.factor b/extra/geo-ip/geo-ip.factor
index 890969fca4c41920d58599ab6184cc0dd9519f3f..4e8cfac746658a7dd64a4579b4bd8f9ad416297b 100644 (file)
--- a/extra/geo-ip/geo-ip.factor
+++ b/extra/geo-ip/geo-ip.factor
@@ -12,7 +12,7 @@ CONSTANT: db-url "https://software77.net/geo-ip/?DL=1"
 
 : download-db ( -- path )
     db-path dup file-exists? [
-        db-url over ".gz" append download-to
+        db-url over ".gz" append download-once-to
         { "gunzip" } over ".gz" append absolute-path suffix try-process
     ] unless ;