diff options
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r-- | srfi/srfi-13.c | 2 |
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++; } |