[Guile-commits] 53/55: put-u8: Always write a single byte, regardless of the port encoding.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 2bfa4f73f188e4ad2bde22594d5173e71c1d3d2f
Author: Mark H Weaver <address@hidden>
Date:   Wed May 1 05:20:36 2019 -0400

    put-u8: Always write a single byte, regardless of the port encoding.
    
    Previously, 'put-u8' used textual I/O to write a single character,
    relying on the usual practice of setting the port encoding to ISO-8859-1
    for binary ports.
    
    * libguile/r6rs-ports.c (scm_put_u8): Use 'scm_c_write', not 'scm_putc'.
---
 libguile/r6rs-ports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index 279114f..4334f5c 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -578,7 +578,7 @@ SCM_DEFINE (scm_put_u8, "put-u8", 2, 0, 0,
   SCM_VALIDATE_BINARY_OUTPUT_PORT (1, port);
   c_octet = scm_to_uint8 (octet);
 
-  scm_putc ((char) c_octet, port);
+  scm_c_write (port, &c_octet, 1);
 
   return SCM_UNSPECIFIED;
 }