summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-10 13:53:28 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-10 13:53:28 +0000
commit163a7e0d02c8b98cee00d09837ed44f7b06a63b4 (patch)
tree62c7ec80f201f93f4322b9ff5de405e71e2068f3 /srfi/srfi-13.c
parentf764e6d10d8b52c4febdfd866fe2b27c943ec1d6 (diff)
downloadguile-163a7e0d02c8b98cee00d09837ed44f7b06a63b4.tar.gz
* srfi-13.c (scm_string_delete): Logic was inversed for charset.
Fixed.
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r--srfi/srfi-13.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index 41adb596b..4b709781f 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -2995,7 +2995,7 @@ SCM_DEFINE (scm_string_delete, "string-delete", 2, 2, 0,
idx = cstart;
while (idx < cend)
{
- if (SCM_CHARSET_GET (char_pred, cstr[idx]))
+ if (!SCM_CHARSET_GET (char_pred, cstr[idx]))
ls = scm_cons (SCM_MAKE_CHAR (cstr[idx]), ls);
idx++;
}