Fixing ftp-download-file
This commit is contained in:
parent
15d9a7dd8a
commit
f5bddf7705
|
@ -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")]
|
||||
|
|
Loading…
Reference in New Issue
Block a user