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

- lower-case "LOG" 

- slightly beautify POP3-LOG
- rename LOGFD -> LOG-PORT
This commit is contained in:
sperber 2003-01-20 14:55:57 +00:00
parent b8d8ef0ff6
commit 321bb04603
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scheme/lib/pop3.scm
View File

@ -209,11 +209,11 @@
;;; Nothing exported below. ;;; Nothing exported below.
(define-record-type pop3-connection :pop3-connection (define-record-type pop3-connection :pop3-connection
(make-pop3-connection host-name command-socket logfd login password challenge state) (make-pop3-connection host-name command-socket log-port login password challenge state)
pop3-connection pop3-connection
(host-name pop3-connection-host-name) (host-name pop3-connection-host-name)
(command-socket pop3-connection-command-socket) (command-socket pop3-connection-command-socket)
(logfd pop3-connection-logfd) (log-port pop3-connection-log-port)
(login pop3-connection-login set-pop3-connection-login!) (login pop3-connection-login set-pop3-connection-login!)
(password pop3-connection-password set-pop3-connection-password!) (password pop3-connection-password set-pop3-connection-password!)
(challenge pop3-connection-challenge set-pop3-connection-challenge!) (challenge pop3-connection-challenge set-pop3-connection-challenge!)
@ -245,11 +245,12 @@
(define (pop3-log connection line) (define (pop3-log connection line)
(let ((LOG (pop3-connection-logfd connection))) (let ((log (pop3-connection-log-port connection)))
(and LOG (if log
(write-string line LOG) (begin
(write-string "\n" LOG) (write-string line log)
(force-output LOG)))) (write-string "\n" log)
(force-output log)))))
(define (pop3-send-command connection command) (define (pop3-send-command connection command)
(let* ((sock (pop3-connection-command-socket connection)) (let* ((sock (pop3-connection-command-socket connection))