mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* srfi-13.c (scm_string_delete): Logic was inversed for charset.

Browse source 
Fixed.
This commit is contained in:
Martin Grabmüller 2001-05-10 13:53:28 +00:00
parent f764e6d10d
commit 163a7e0d02
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-13.c
View file

@ -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++;
}