From eb7a16a9f802524f062ec48cf749da0253a1bbc5 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 13 Feb 2011 18:19:00 +0100
Subject: [PATCH] primitive-load defaults to utf-8, not latin-1

* libguile/load.c (scm_primitive_load): Default to utf-8.
---
 libguile/load.c | 5 +++--
 1 file 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)
       {