mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Remove byte-order mark check from 'scm_i_scan_for_encoding'.

Browse source 
* libguile/read.c (scm_i_scan_for_encoding): Remove byte-order mark
  check.
This commit is contained in:
Mark H Weaver 2013-04-05 17:33:03 -04:00
parent 9a334eb3ab
commit e1966d0e21
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/read.c
View file

@ -1986,7 +1986,6 @@ scm_i_scan_for_encoding (SCM port)
char header[SCM_ENCODING_SEARCH_SIZE+1];
size_t bytes_read, encoding_length, i;
char *encoding = NULL;
int utf8_bom = 0;
char *pos, *encoding_start;
int in_comment;
@ -2031,10 +2030,6 @@ scm_i_scan_for_encoding (SCM port)
scm_seek (port, scm_from_int (0), scm_from_int (SEEK_SET));
}
if (bytes_read > 3
&& header[0] == '\xef' && header[1] == '\xbb' && header[2] == '\xbf')
utf8_bom = 1;
/* search past "coding[:=]" */
pos = header;
while (1)
@ -2103,11 +2098,6 @@ scm_i_scan_for_encoding (SCM port)
/* This wasn't in a comment */
return NULL;
if (utf8_bom && c_strcasecmp(encoding, "UTF-8"))
scm_misc_error (NULL,
"the port input declares the encoding ~s but is encoded as UTF-8",
scm_list_1 (scm_from_locale_string (encoding)));
return encoding;
}