summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-13 18:19:00 +0100
committerAndy Wingo <wingo@pobox.com>2011-02-13 18:19:00 +0100
commiteb7a16a9f802524f062ec48cf749da0253a1bbc5 (patch)
tree446286512c9515b3094393a9bdfb26c2fc55ea20
parent7354a105cdd86d57a7c4805d736497acdf735d56 (diff)
downloadguile-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.c5
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)
{