diff options
author | Andy Wingo <wingo@pobox.com> | 2011-04-01 11:05:37 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-04-01 11:05:37 +0200 |
commit | d050ef66eceb764e0c26e535140ebed795b546fa (patch) | |
tree | 689b5d09f2ae5ed8186cf18f9f17d7f13c28048e /libguile/strings.c | |
parent | 1c8a6308c0050189a777d9384f270aea3206c2e0 (diff) | |
download | guile-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.c | 8 |
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)); |