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