guile/guile-core/srfi ChangeLog srfi-13.c

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/05/07 15:27:29

Modified files:
        guile-core/srfi: ChangeLog srfi-13.c 

Log message:
        * srfi-13.c (scm_string_copyS): Fixed nasty bug.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.14&tr2=1.15&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-13.c.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.14 
guile/guile-core/srfi/ChangeLog:1.15
--- guile/guile-core/srfi/ChangeLog:1.14        Sat May  5 20:33:13 2001
+++ guile/guile-core/srfi/ChangeLog     Mon May  7 15:27:29 2001
@@ -1,3 +1,7 @@
+2001-05-08  Martin Grabmueller  <address@hidden>
+
+       * srfi-13.c (scm_string_copyS): Fixed nasty bug.
+
 2001-05-05  Rob Browning  <address@hidden>
 
        * Makefile.am (srfi_DATA): added srfi-19.scm.
Index: guile/guile-core/srfi/srfi-13.c
diff -u guile/guile-core/srfi/srfi-13.c:1.6 guile/guile-core/srfi/srfi-13.c:1.7
--- guile/guile-core/srfi/srfi-13.c:1.6 Wed May  2 14:47:36 2001
+++ guile/guile-core/srfi/srfi-13.c     Mon May  7 15:27:29 2001
@@ -379,7 +379,7 @@
   SCM_VALIDATE_SUBSTRING_SPEC_COPY (1, str, cstr,
                                    2, start, cstart,
                                    3, end, cend);
-  return scm_makfromstr (cstr + start, cend - cstart, 0);
+  return scm_makfromstr (cstr + cstart, cend - cstart, 0);
   
 }
 #undef FUNC_NAME