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

char-set-filter! does not properly iterate over the charset

Browse source 
* libguile/srfi-14.c (scm_char_set_filter_x): iterate over
  codepoints
This commit is contained in:
Michael Gran 2009-09-02 06:16:35 -07:00
parent 91772d8f8a
commit bde543e88b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/srfi-14.c
View file

@ -1298,7 +1298,7 @@ SCM_DEFINE (scm_char_set_filter_x, "char-set-filter!", 3, 0, 0,
for (k = 0; k < p->len; k++) for (k = 0; k < p->len; k++)
for (n = p->ranges[k].lo; n <= p->ranges[k].hi; n++) for (n = p->ranges[k].lo; n <= p->ranges[k].hi; n++)
{ {
SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (k)); SCM res = scm_call_1 (pred, SCM_MAKE_CHAR (n));
if (scm_is_true (res)) if (scm_is_true (res))
SCM_CHARSET_SET (base_cs, n); SCM_CHARSET_SET (base_cs, n);