X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fgoogle%2Ftranslate%2Ftranslate.factor;fp=extra%2Fgoogle%2Ftranslate%2Ftranslate.factor;h=a8ddafa31fcbef820bbbe162b25b473c676002e6;hp=260d20dfed1dee8056b4328d11dd20b4c4578149;hb=1a083937fb43db3c978df1960d41ae257ff449aa;hpb=722d92fbfdeff55645f4148d3016798afe4fd433

diff --git a/extra/google/translate/translate.factor b/extra/google/translate/translate.factor
index 260d20dfed..a8ddafa31f 100644
--- a/extra/google/translate/translate.factor
+++ b/extra/google/translate/translate.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See https://factorcode.org/license.txt for BSD license.
 
-USING: assocs combinators grouping http.client io io.files.temp
-io.files.unique json kernel make sequences urls ;
+USING: assocs combinators grouping http.client http.download io
+io.files.temp io.files.unique json kernel make sequences urls ;
 
 IN: google.translate
 
@@ -55,7 +55,7 @@ TUPLE: response-error response error ;
 : translate-tts ( text -- file )
     "https://translate.google.com/translate_tts?tl=en" >url
     swap "q" set-query-param [
-        "" ".mp3" unique-file [ download-to ] keep
+        "" ".mp3" unique-file download-to
     ] with-temp-directory ;
 
 ! Example: