mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

primitive-load defaults to utf-8, not latin-1

Browse source 
* libguile/load.c (scm_primitive_load): Default to utf-8.
This commit is contained in:
Andy Wingo 2011-02-13 18:19:00 +01:00
parent 7354a105cd
commit eb7a16a9f8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/load.c
View file

@ -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)
{