From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 24 Nov 2009 16:20:05 +0000 (-0800)
Subject: Use faster write-char when transcribing chars.
X-Git-Tag: 20100708-Gtk~228
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1fab96c18abbf7d0a3b5fcf61044fe24c2525c92;p=mit-scheme.git

Use faster write-char when transcribing chars.
---

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index e5346c433..8c564e47a 100644
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -594,7 +594,7 @@ USA.
 (define (transcribe-char char port)
   (let ((tport (port/transcript port)))
     (if tport
-	(write-char char tport))))
+	(%write-char char tport))))
 
 (define (transcribe-substring string start end port)
   (let ((tport (port/transcript port)))