From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 05:53:07 +0000 (-0800)
Subject: Tweak to use bytevector.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~59
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c0f5fce1351bd3cb83c87c5f25831a3e6fc6867b;p=mit-scheme.git

Tweak to use bytevector.
---

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)))