summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-07 22:27:29 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-07 22:27:29 +0000
commit2abe254daca370fecf3e06244c01e828c48fec1a (patch)
treef04b6581b77a2b8129088c51873b578582f5b3ef /srfi/srfi-13.c
parentdf937d20e01d0a1de561aec6ff2dbaa865b85851 (diff)
downloadguile-2abe254daca370fecf3e06244c01e828c48fec1a.tar.gz
* srfi-13.c (scm_string_copyS): Fixed nasty bug.
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r--srfi/srfi-13.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index e7fe76c57..41adb596b 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -379,7 +379,7 @@ SCM_DEFINE (scm_string_copyS, "string-copy", 1, 2, 0,
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