(write-string "\n" port) -> (newline port)

2003-01-20 15:02:59 +00:00 · 2003-01-20 15:02:59 +00:00 · 99819b7a47
parent 3ef18b6abf
commit 99819b7a47
1 changed files with 1 additions and 1 deletions
--- a/scheme/lib/pop3.scm
+++ b/scheme/lib/pop3.scm
@ -249,7 +249,7 @@
    (if log
 	(begin
 	  (write-string line log)
-	  (write-string "\n" log)
+	  (newline log)
 	  (force-output log)))))

 (define (pop3-send-command connection command)