scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Lower-case silly "IN."

This commit is contained in:
sperber 2003-01-16 10:58:02 +00:00
parent fddc9bda46
commit 1b5098bea0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/lib/ftp.scm
View File

@ -394,8 +394,8 @@
(define (ftp-read-reply connection . maybe-expected) (define (ftp-read-reply connection . maybe-expected)
(let-optionals* maybe-expected ((expected? (code-with-prefix "2"))) (let-optionals* maybe-expected ((expected? (code-with-prefix "2")))
(let* ((sock (ftp-connection-command-socket connection)) (let* ((sock (ftp-connection-command-socket connection))
(IN (socket:inport sock)) (in (socket:inport sock))
(reply (read-crlf-line IN)) (reply (read-crlf-line in))
(code (substring reply 0 3))) (code (substring reply 0 3)))
(ftp-log connection (format #f "-> ~a" reply)) (ftp-log connection (format #f "-> ~a" reply))
(if (not (expected? code)) (if (not (expected? code))
@ -404,7 +404,7 @@
(if (char=? (string-ref reply 3) #\-) (if (char=? (string-ref reply 3) #\-)
(let ((end-prefix (string-append code " "))) (let ((end-prefix (string-append code " ")))
(let loop () (let loop ()
(let* ((line (read-crlf-line IN)) (let* ((line (read-crlf-line in))
(reply (string-join (list reply line "\n")))) (reply (string-join (list reply line "\n"))))
(ftp-log connection (format #f "-> ~a" line)) (ftp-log connection (format #f "-> ~a" line))
(if (string-prefix? end-prefix line) (if (string-prefix? end-prefix line)