ftp: fix data download for some servers

original commit: 1c1d1934f4f597ee87778c01d356dfdba9eb5721
2011-08-10 08:25:11 -06:00 · 2011-08-10 08:25:11 -06:00 · 4692fba599
commit 4692fba599
parent 8e79dbf235
1 changed files with 1 additions and 1 deletions
--- a/collects/net/ftp-unit.rkt
+++ b/collects/net/ftp-unit.rkt
@ -119,7 +119,7 @@
        (ftp-check-response (ftp-connection-in tcp-ports)
                            (ftp-connection-out tcp-ports)
                            #"200" void (void))
-        (close-output-port tcp-data-out)
+        (tcp-abandon-port tcp-data-out)
        tcp-data))))

 ;; Used where version 0.1a printed responses: