From 1b5098bea0f45c5c5f60cded00a78d7814097df3 Mon Sep 17 00:00:00 2001 From: sperber Date: Thu, 16 Jan 2003 10:58:02 +0000 Subject: [PATCH] Lower-case silly "IN." --- 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 df58611..f87e3ac 100644 --- a/scheme/lib/ftp.scm +++ b/scheme/lib/ftp.scm @@ -394,8 +394,8 @@ (define (ftp-read-reply connection . maybe-expected) (let-optionals* maybe-expected ((expected? (code-with-prefix "2"))) (let* ((sock (ftp-connection-command-socket connection)) - (IN (socket:inport sock)) - (reply (read-crlf-line IN)) + (in (socket:inport sock)) + (reply (read-crlf-line in)) (code (substring reply 0 3))) (ftp-log connection (format #f "-> ~a" reply)) (if (not (expected? code)) @@ -404,7 +404,7 @@ (if (char=? (string-ref reply 3) #\-) (let ((end-prefix (string-append code " "))) (let loop () - (let* ((line (read-crlf-line IN)) + (let* ((line (read-crlf-line in)) (reply (string-join (list reply line "\n")))) (ftp-log connection (format #f "-> ~a" line)) (if (string-prefix? end-prefix line)