From c0f5fce1351bd3cb83c87c5f25831a3e6fc6867b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Jan 2017 21:53:07 -0800 Subject: [PATCH] Tweak to use bytevector. --- src/runtime/io.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/runtime/io.scm b/src/runtime/io.scm index 7032e5bc5..243d27f0c 100644 --- a/src/runtime/io.scm +++ b/src/runtime/io.scm @@ -238,9 +238,7 @@ USA. ((< n n-left) (loop (+ start n) (- n-left n))))))) (define (channel-write-byte-block channel byte) - (let ((bytes (make-string 1))) - (vector-8b-set! bytes 0 byte) - (channel-write-block channel bytes 0 1))) + (channel-write-block channel (bytevector byte) 0 1)) (define (channel-blocking? channel) ((ucode-primitive channel-blocking? 1) (channel-descriptor channel))) -- 2.25.1