From 92dc246a0e99c03cf1ec084f175c8772f7e2e1f3 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 8 Feb 2011 13:16:59 -0500 Subject: [PATCH] add 125 to list of expected return codes when receiving data in net/ftp original commit: c52b70244d23d77f1813b981939d69a8cea0b125 --- collects/net/ftp-unit.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/net/ftp-unit.rkt b/collects/net/ftp-unit.rkt index f0b43c0..57531b2 100644 --- a/collects/net/ftp-unit.rkt +++ b/collects/net/ftp-unit.rkt @@ -178,7 +178,7 @@ (fprintf (ftp-connection-out tcp-ports) "LIST\n") (ftp-check-response (ftp-connection-in tcp-ports) (ftp-connection-out tcp-ports) - #"150" void (void)) + (list #"150" #"125") void (void)) (let ([dir-list (filter-tcp-data tcp-data re:dir-line)]) (close-input-port tcp-data) (ftp-check-response (ftp-connection-in tcp-ports) @@ -205,7 +205,7 @@ (display tcpstring (ftp-connection-out tcp-ports)) (ftp-check-response (ftp-connection-in tcp-ports) (ftp-connection-out tcp-ports) - #"150" print-msg (void)) + (list #"125" #"150") print-msg (void)) (copy-port tcp-data new-file) (close-output-port new-file) (close-input-port tcp-data)