diff options
Diffstat (limited to 'libguile')
| -rw-r--r-- | libguile/r6rs-ports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c index c1cbbdf30..16c148090 100644 --- a/libguile/r6rs-ports.c +++ b/libguile/r6rs-ports.c @@ -570,7 +570,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; } |