[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/srfi ChangeLog srfi-13.c
From: |
Martin Grabmueller |
Subject: |
guile/guile-core/srfi ChangeLog srfi-13.c |
Date: |
Thu, 10 May 2001 06:53:28 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Martin Grabmueller <address@hidden> 01/05/10 06:53:28
Modified files:
guile-core/srfi: ChangeLog srfi-13.c
Log message:
* srfi-13.c (scm_string_delete): Logic was inversed for charset.
Fixed.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-13.c.diff?cvsroot=OldCVS&tr1=1.7&tr2=1.8&r1=text&r2=text
Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.15
guile/guile-core/srfi/ChangeLog:1.16
--- guile/guile-core/srfi/ChangeLog:1.15 Mon May 7 15:27:29 2001
+++ guile/guile-core/srfi/ChangeLog Thu May 10 06:53:28 2001
@@ -1,3 +1,8 @@
+2001-05-10 Martin Grabmueller <address@hidden>
+
+ * srfi-13.c (scm_string_delete): Logic was inversed for charset.
+ Fixed.
+
2001-05-08 Martin Grabmueller <address@hidden>
* srfi-13.c (scm_string_copyS): Fixed nasty bug.
Index: guile/guile-core/srfi/srfi-13.c
diff -u guile/guile-core/srfi/srfi-13.c:1.7 guile/guile-core/srfi/srfi-13.c:1.8
--- guile/guile-core/srfi/srfi-13.c:1.7 Mon May 7 15:27:29 2001
+++ guile/guile-core/srfi/srfi-13.c Thu May 10 06:53:28 2001
@@ -2995,7 +2995,7 @@
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++;
}