suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing ftp-download-file

Browse Source 
original commit: f5bddf770508a4b8be0cf8e22414363ff6348538
This commit is contained in:
Jay McCarthy 2010-05-24 09:56:15 -06:00
parent 351136f202
commit 7e00a44f62
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/net/ftp-unit.rkt
View File

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