summaryrefslogtreecommitdiff
path: root/libguile/srfi-14.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-09-02 06:16:35 -0700
committerMichael Gran <spk121@yahoo.com>2009-09-02 06:28:35 -0700
commitbde543e88b070b5fcd2b08ba8129ec1125ab0861 (patch)
treef5d62ff23f8d29c711ca50832466686725ccc218 /libguile/srfi-14.c
parent91772d8f8af742e864cccf5578776f09bfecf7e9 (diff)
downloadguile-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
Diffstat (limited to 'libguile/srfi-14.c')
-rw-r--r--libguile/srfi-14.c2
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);