From a4810b4caec9d2f2b02cfc678cc7f9e291053b01 Mon Sep 17 00:00:00 2001 From: sperber Date: Thu, 16 Jan 2003 10:03:04 +0000 Subject: [PATCH] Rename all those ugly "OUT"s to "out". --- scheme/lib/ftp.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm index ea19f4a..55504ec 100644 --- a/scheme/lib/ftp.scm +++ b/scheme/lib/ftp.scm @@ -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)))