mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

ASCII is not ISO-8859-1

Browse source 
* libguile/ports.c (scm_i_set_default_port_encoding): An encoding of
  ASCII is not the same as ISO-8859-1, because it does not allow
  characters above 128.  Fix this.
This commit is contained in:
Andy Wingo 2013-01-15 15:09:48 +01:00
parent e5cef86e9c
commit 449ca87bdb
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ports.c
View file

@ -866,9 +866,7 @@ scm_i_set_default_port_encoding (const char *encoding)
scm_misc_error (NULL, "tried to set port encoding fluid before it is initialized", scm_misc_error (NULL, "tried to set port encoding fluid before it is initialized",
SCM_EOL); SCM_EOL);
if (encoding_matches (encoding, "ASCII") if (encoding_matches (encoding, "ISO-8859-1"))
|| encoding_matches (encoding, "ANSI_X3.4-1968")
|| encoding_matches (encoding, "ISO-8859-1"))
scm_fluid_set_x (SCM_VARIABLE_REF (default_port_encoding_var), SCM_BOOL_F); scm_fluid_set_x (SCM_VARIABLE_REF (default_port_encoding_var), SCM_BOOL_F);
else else
scm_fluid_set_x (SCM_VARIABLE_REF (default_port_encoding_var), scm_fluid_set_x (SCM_VARIABLE_REF (default_port_encoding_var),