On 01/06/12 14:23, Bruce Korb wrote:
Since I'm dead in the water, I've patched the 2.0.3 source:
$ diff -u srfi-13.c~ srfi-13.c
--- srfi-13.c~ 2011-07-06 15:50:00.000000000 -0700
+++ srfi-13.c 2012-01-06 15:26:44.963324773 -0800
@@ -2088,6 +2088,8 @@
string_upcase_x (SCM v, size_t start, size_t end)
{
size_t k;
+ if (start == end)
+ return v;
v = scm_i_string_start_writing (v);
for (k = start; k < end; ++k)
@@ -2151,6 +2153,8 @@
string_downcase_x (SCM v, size_t start, size_t end)
{
size_t k;
+ if (start == end)
+ return v;
v = scm_i_string_start_writing (v);
for (k = start; k < end; ++k)
@@ -2218,6 +2222,8 @@
SCM ch;
size_t i;
int in_word = 0;
+ if (start == end)
+ return str;
str = scm_i_string_start_writing (str);
for(i = start; i < end; i++)
@@ -2310,6 +2316,8 @@
string_reverse_x (SCM str, size_t cstart, size_t cend)
{
SCM tmp;
+ if (cstart == cend)
+ return;
str = scm_i_string_start_writing (str);
if (cend > 0)
