From f7ca3d53931dfa7f6b2b5c0d66ea853b7059fe4b Mon Sep 17 00:00:00 2001 From: sperber Date: Wed, 15 Jan 2003 15:39:13 +0000 Subject: [PATCH] Use READ-CRLF-LINE instead of READ-LINE. (FTP is TELNET-based.) --- scheme/lib/ftp.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm index 19956a0..d7604cd 100644 --- a/scheme/lib/ftp.scm +++ b/scheme/lib/ftp.scm @@ -434,18 +434,18 @@ (let-optionals* maybe-expected ((expected "2..")) (let* ((sock (ftp-connection-command-socket connection)) (IN (socket:inport sock)) - (response (read-line IN))) + (response (read-crlf-line IN))) (ftp-log connection (format #f "-> ~a" response)) (or (string-match expected response) (signal 'ftp-error response)) ;; handle multi-line responses (if (equal? (string-ref response 3) #\-) (let loop ((code (string-append (substring response 0 3) " ")) - (line (read-line IN))) + (line (read-crlf-line IN))) (ftp-log connection (format #f "-> ~a" line)) (set! response (string-join (list response line "\n"))) (or (string-match code line) - (loop code (read-line IN))))) + (loop code (read-crlf-line IN))))) response)))