summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-06-24 07:43:58 +0200
committerAndy Wingo <wingo@pobox.com>2016-06-24 07:43:58 +0200
commitf23dfc0fb582e2cd2894e9019b66bee53cecf2f9 (patch)
treefa39a83d104eff519512909f5fbb65ebfe67afce
parent8a072fc2d628bc85c7edadc39d50b4ff3a00d6eb (diff)
downloadguile-f23dfc0fb582e2cd2894e9019b66bee53cecf2f9.tar.gz
Locale is default port encoding
* libguile/ports.c (scm_init_ports): Use the locale as the default charset. After the switch to default GUILE_INSTALL_LOCALE=1, this harmonizes the default port encoding with the installed locale.
-rw-r--r--libguile/ports.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index c214717c4..434e48e54 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -3979,13 +3979,14 @@ scm_init_ports (void)
cur_warnport_fluid = scm_make_fluid ();
cur_loadport_fluid = scm_make_fluid ();
- /* Use Latin-1 as the default port encoding. */
default_port_encoding_var =
scm_c_define ("%default-port-encoding",
scm_make_fluid_with_default (SCM_BOOL_F));
default_conversion_strategy_var =
scm_c_define ("%default-port-conversion-strategy",
scm_make_fluid_with_default (sym_substitute));
+ /* Use the locale as the default port encoding. */
+ scm_i_set_default_port_encoding (locale_charset ());
scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
"scm_init_ice_9_ports",