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

char-set-any improperly unpacks charset data

Browse source 
* libguile/srfi-14.c (scm_char_set_any): unpack the charset correctly
This commit is contained in:
Michael Gran 2009-09-02 06:03:28 -07:00
parent 7165abeba8
commit 693e72891f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/srfi-14.c
View file

@ -1495,7 +1495,9 @@ SCM_DEFINE (scm_char_set_any, "char-set-any", 2, 0, 0,
SCM_VALIDATE_PROC (1, pred); SCM_VALIDATE_PROC (1, pred);
SCM_VALIDATE_SMOB (2, cs, charset); SCM_VALIDATE_SMOB (2, cs, charset);
cs_data = (scm_t_char_set *) cs; cs_data = SCM_CHARSET_DATA (cs);
if (cs_data->len == 0)
return SCM_BOOL_T;
for (k = 0; k < cs_data->len; k++) for (k = 0; k < cs_data->len; k++)
for (n = cs_data->ranges[k].lo; n <= cs_data->ranges[k].hi; n++) for (n = cs_data->ranges[k].lo; n <= cs_data->ranges[k].hi; n++)