Prettify FTP-LOG.

2003-01-16 10:55:15 +00:00 · 2003-01-16 10:55:15 +00:00 · fddc9bda46
parent d07bf7beae
commit fddc9bda46
1 changed files with 6 additions and 5 deletions
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@ -416,8 +416,9 @@
  (string-join (cons str opt-args)))

 (define (ftp-log connection line)
-  (let ((LOG (ftp-connection-logfd connection)))
-    (and LOG
-         (write-string line LOG)
-         (write-string "\n" LOG)
-         (force-output LOG))))
+  (cond
+   ((ftp-connection-logfd connection)
+    => (lambda (log)
+         (write-string line log)
+         (write-string "\n" log)
+         (force-output log)))))