mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

latin1 subr and message in internal scm_{encoding,decoding}_error

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-04-01 11:05:37 +02:00
parent 1c8a6308c0
commit d050ef66ec
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/strings.c
View file

@ -1423,8 +1423,8 @@ scm_encoding_error (const char *subr, int err, const char *message,
SCM port, SCM chr) SCM port, SCM chr)
{ {
scm_throw (scm_encoding_error_key, scm_throw (scm_encoding_error_key,
scm_list_n (scm_from_locale_string (subr), scm_list_n (scm_from_latin1_string (subr),
scm_from_locale_string (message), scm_from_latin1_string (message),
scm_from_int (err), scm_from_int (err),
port, chr, port, chr,
SCM_UNDEFINED)); SCM_UNDEFINED));
@ -1436,8 +1436,8 @@ void
scm_decoding_error (const char *subr, int err, const char *message, SCM port) scm_decoding_error (const char *subr, int err, const char *message, SCM port)
{ {
scm_throw (scm_decoding_error_key, scm_throw (scm_decoding_error_key,
scm_list_n (scm_from_locale_string (subr), scm_list_n (scm_from_latin1_string (subr),
scm_from_locale_string (message), scm_from_latin1_string (message),
scm_from_int (err), scm_from_int (err),
port, port,
SCM_UNDEFINED)); SCM_UNDEFINED));