>From 2c7581199b05019f4418cd31ec147a3d8cc2a4e1 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 |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/extras.scm b/extras.scm
index bb9e434..3be95cc 100644
--- a/extras.scm
+++ b/extras.scm
@@ -134,13 +134,14 @@
 
 (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) ) ))
+      (##sys#check-port* p 'write-line)
+      (##sys#check-port-mode p #f 'write-line)
       (##sys#check-string str 'write-line)
-      (display str p)
-      (newline p) ) ) )
+      ((##sys#slot (##sys#slot p 2) 3) p str) ; write-string method
+      (##sys#write-char-0 #\newline p))))
 
 
 ;;; Extended I/O 
-- 
1.7.4.1