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

Prettify FTP-LOG.

This commit is contained in:
sperber 2003-01-16 10:55:15 +00:00
parent d07bf7beae
commit fddc9bda46
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/lib/ftp.scm
View File

@ -416,8 +416,9 @@
(string-join (cons str opt-args))) (string-join (cons str opt-args)))
(define (ftp-log connection line) (define (ftp-log connection line)
(let ((LOG (ftp-connection-logfd connection))) (cond
(and LOG ((ftp-connection-logfd connection)
(write-string line LOG) => (lambda (log)
(write-string "\n" LOG) (write-string line log)
(force-output LOG)))) (write-string "\n" log)
(force-output log)))))