summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c10
1 files changed, 3 insertions, 7 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 9e48589f4..59b109380 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -484,8 +484,7 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
scm_i_get_conversion_strategy (port)))
scm_encoding_error (__func__, errno,
"cannot convert to output locale",
- "UTF-32", scm_i_get_port_encoding (port),
- scm_string (scm_list_1 (exp)));
+ port, exp);
}
}
else if (SCM_IFLAGP (exp)
@@ -570,11 +569,9 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
len, port,
scm_i_get_conversion_strategy (port));
if (SCM_UNLIKELY (printed < len))
- /* FIXME: Provide the error location. */
scm_encoding_error (__func__, errno,
"cannot convert to output locale",
- "UTF-32", scm_i_get_port_encoding (port),
- exp);
+ port, scm_c_string_ref (exp, printed));
}
scm_remember_upto_here_1 (exp);
@@ -1388,8 +1385,7 @@ SCM_DEFINE (scm_write_char, "write-char", 1, 1, 0,
scm_i_get_conversion_strategy (port)))
scm_encoding_error (__func__, errno,
"cannot convert to output locale",
- "UTF-32", scm_i_get_port_encoding (port),
- scm_string (scm_list_1 (chr)));
+ port, chr);
return SCM_UNSPECIFIED;
}