From fddc9bda468c5cb23e863e33c13a8b77e8a4633c Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Thu, 16 Jan 2003 10:55:15 +0000
Subject: [PATCH] Prettify FTP-LOG.

---
 scheme/lib/ftp.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/scheme/lib/ftp.scm b/scheme/lib/ftp.scm
index fdff509..df58611 100644
--- 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)))))