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

Fixing ftp-download-file

Browse Source
This commit is contained in:
Jay McCarthy 2010-05-24 09:56:15 -06:00
parent 15d9a7dd8a
commit f5bddf7705
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")]