mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

put-u8: Always write a single byte, regardless of the port encoding.

Browse source 
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'.
This commit is contained in:
Mark H Weaver 2019-05-01 05:20:36 -04:00
parent 5b42fd80d7
commit 91b5b1631f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/r6rs-ports.c
View file

@ -570,7 +570,7 @@ SCM_DEFINE (scm_put_u8, "put-u8", 2, 0, 0,
SCM_VALIDATE_BINARY_OUTPUT_PORT (1, port); SCM_VALIDATE_BINARY_OUTPUT_PORT (1, port);
c_octet = scm_to_uint8 (octet); c_octet = scm_to_uint8 (octet);
scm_putc ((char) c_octet, port); scm_c_write (port, &c_octet, 1);
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }