guile-cvs
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]