diff options
author | Michael Gran <spk121@yahoo.com> | 2009-09-02 06:16:35 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-09-02 06:28:35 -0700 |
commit | bde543e88b070b5fcd2b08ba8129ec1125ab0861 (patch) | |
tree | f5d62ff23f8d29c711ca50832466686725ccc218 | |
parent | 91772d8f8af742e864cccf5578776f09bfecf7e9 (diff) | |
download | guile-bde543e88b070b5fcd2b08ba8129ec1125ab0861.tar.gz |
char-set-filter! does not properly iterate over the charset
* libguile/srfi-14.c (scm_char_set_filter_x): iterate over
codepoints
-rw-r--r-- | libguile/srfi-14.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c index 0a283f9d0..d747973d0 100644 --- a/libguile/srfi-14.c +++ b/libguile/srfi-14.c @@ -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 (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)) SCM_CHARSET_SET (base_cs, n); |