diff options
-rw-r--r-- | srfi/ChangeLog | 5 | ||||
-rw-r--r-- | srfi/srfi-13.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index 9e8779ccd..c207f9228 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,8 @@ +2001-05-10 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> + + * srfi-13.c (scm_string_delete): Logic was inversed for charset. + Fixed. + 2001-05-08 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> * srfi-13.c (scm_string_copyS): Fixed nasty bug. 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++; } |