summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
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++;
}