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

Rename all those ugly "OUT"s to "out".

This commit is contained in:
sperber 2003-01-16 10:03:04 +00:00
parent 697ed851b8
commit a4810b4cae
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scheme/lib/ftp.scm
View File

@ -276,7 +276,7 @@
(local (if (pair? maybe-local) (local (if (pair? maybe-local)
(car maybe-local) (car maybe-local)
'empty)) 'empty))
(OUT (cond ((string? local) (open-output-file local)) (out (cond ((string? local) (open-output-file local))
((eq? local #t) (current-output-port)) ((eq? local #t) (current-output-port))
((eq? local #f) (make-string-output-port)) ((eq? local #f) (make-string-output-port))
(else (else
@ -286,14 +286,14 @@
(exactly-code "150")) (exactly-code "150"))
(receive (newsock newsockaddr) (receive (newsock newsockaddr)
(accept-connection sock) (accept-connection sock)
(with-current-output-port OUT (with-current-output-port out
(dump (socket:inport newsock))) (dump (socket:inport newsock)))
(close-socket newsock) (close-socket newsock)
(close-socket sock) (close-socket sock)
(let ((status (ftp-read-reply connection))) (let ((status (ftp-read-reply connection)))
(if (string? local) (close OUT)) (if (string? local) (close out))
(if (eq? local #f) (if (eq? local #f)
(string-output-port-output OUT) (string-output-port-output out)
status))))) status)))))
@ -402,9 +402,9 @@
(define (ftp-send-command connection command . maybe-expected) (define (ftp-send-command connection command . maybe-expected)
(let* ((sock (ftp-connection-command-socket connection)) (let* ((sock (ftp-connection-command-socket connection))
(OUT (socket:outport sock))) (out (socket:outport sock)))
(write-string command OUT) (write-string command out)
(write-crlf OUT) (write-crlf out)
(ftp-log connection (format #f "<- ~a" command)) (ftp-log connection (format #f "<- ~a" command))
(apply ftp-read-reply connection maybe-expected))) (apply ftp-read-reply connection maybe-expected)))