summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-04-01 11:05:37 +0200
committerAndy Wingo <wingo@pobox.com>2011-04-01 11:05:37 +0200
commitd050ef66eceb764e0c26e535140ebed795b546fa (patch)
tree689b5d09f2ae5ed8186cf18f9f17d7f13c28048e /libguile/strings.c
parent1c8a6308c0050189a777d9384f270aea3206c2e0 (diff)
downloadguile-d050ef66eceb764e0c26e535140ebed795b546fa.tar.gz
latin1 subr and message in internal scm_{encoding,decoding}_error
* libguile/strings.c (scm_encoding_error, scm_decoding_error): Use scm_from_latin1_string for the subr and message args, as these are internal functions, and we know their callers.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index cdf81410d..bf637041c 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1423,8 +1423,8 @@ scm_encoding_error (const char *subr, int err, const char *message,
SCM port, SCM chr)
{
scm_throw (scm_encoding_error_key,
- scm_list_n (scm_from_locale_string (subr),
- scm_from_locale_string (message),
+ scm_list_n (scm_from_latin1_string (subr),
+ scm_from_latin1_string (message),
scm_from_int (err),
port, chr,
SCM_UNDEFINED));
@@ -1436,8 +1436,8 @@ void
scm_decoding_error (const char *subr, int err, const char *message, SCM port)
{
scm_throw (scm_decoding_error_key,
- scm_list_n (scm_from_locale_string (subr),
- scm_from_locale_string (message),
+ scm_list_n (scm_from_latin1_string (subr),
+ scm_from_latin1_string (message),
scm_from_int (err),
port,
SCM_UNDEFINED));