diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-13 18:19:00 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-02-13 18:19:00 +0100 |
commit | eb7a16a9f802524f062ec48cf749da0253a1bbc5 (patch) | |
tree | 446286512c9515b3094393a9bdfb26c2fc55ea20 | |
parent | 7354a105cdd86d57a7c4805d736497acdf735d56 (diff) | |
download | guile-eb7a16a9f802524f062ec48cf749da0253a1bbc5.tar.gz |
primitive-load defaults to utf-8, not latin-1
* libguile/load.c (scm_primitive_load): Default to utf-8.
-rw-r--r-- | libguile/load.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/load.c b/libguile/load.c index cec59d1a9..082bebb3d 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -105,8 +105,9 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0, if (encoding) scm_i_set_port_encoding_x (port, encoding); else - /* The file has no encoding declared. We'll presume Latin-1. */ - scm_i_set_port_encoding_x (port, NULL); + /* The file has no encoding declared. We'll presume UTF-8, like + compile-file does. */ + scm_i_set_port_encoding_x (port, "UTF-8"); while (1) { |