>From ca7811daf4951c93dcd60cc559197602dcb27f66 Mon Sep 17 00:00:00 2001
From: Christian Kellermann <address@hidden>
Date: Sun, 25 Sep 2011 11:58:02 +0200
Subject: [PATCH] replace write-line calls to display with internal procedures.

---
 extras.scm |   15 +++++++++------
 1 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/extras.scm b/extras.scm
index bb9e434..e2bcf76 100644
--- a/extras.scm
+++ b/extras.scm
@@ -134,13 +134,16 @@
 
 (define write-line
   (lambda (str . port)
-    (let ((p (if (##core#inline "C_eqp" port '())
-		 ##sys#standard-output
-		 (##sys#slot port 0) ) ) )
-      (##sys#check-port p 'write-line)
+    (let* ((p (if (##core#inline "C_eqp" port '())
+                  ##sys#standard-output
+                  (##sys#slot port 0) ) )
+           (write-string (and
+                          (##sys#check-port* p 'write-line)
+                          (##sys#check-port-mode p #f 'write-line)
+                          (##sys#slot (##sys#slot p 2) 3))))
       (##sys#check-string str 'write-line)
-      (display str p)
-      (newline p) ) ) )
+      (write-string p str)
+      (##sys#write-char-0 #\newline p))))
 
 
 ;;; Extended I/O 
-- 
1.7.4.1