From fc91321f21cbbecd19297f739203d8fb6123b7af Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 29 Jun 2010 13:49:01 -0600 Subject: [PATCH] Close connection sooner --- collects/tests/net/ftp.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/tests/net/ftp.rkt b/collects/tests/net/ftp.rkt index 511586b168..11554516dc 100644 --- a/collects/tests/net/ftp.rkt +++ b/collects/tests/net/ftp.rkt @@ -21,7 +21,8 @@ (ftp-make-file-seconds ftp-date))) (ftp-download-file conn tmp-dir pth) - (delete-file (build-path tmp-dir pth)) - (delete-directory/files tmp-dir) - (ftp-close-connection conn))) \ No newline at end of file + (ftp-close-connection conn) + + (delete-file (build-path tmp-dir pth)) + (delete-directory/files tmp-dir))) \ No newline at end of file