Fixing ftp-download-file

This commit is contained in:
Jay McCarthy 2010-05-24 09:56:15 -06:00
parent 15d9a7dd8a
commit f5bddf7705

View File

@ -197,7 +197,7 @@
(path->string (build-path folder "ftptmp"))
"~~")
"~a"))]
[new-file (open-output-file tmpfile 'replace)]
[new-file (open-output-file tmpfile #:exists 'replace)]
[tcpstring (bytes-append #"RETR "
(string->bytes/locale filename)
#"\n")]