From 1fab96c18abbf7d0a3b5fcf61044fe24c2525c92 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 24 Nov 2009 08:20:05 -0800 Subject: [PATCH] Use faster write-char when transcribing chars. --- src/runtime/port.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.25.1