mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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

5
srfi/ChangeLog
View file

@ -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.

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