From 2abe254daca370fecf3e06244c01e828c48fec1a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Mon, 7 May 2001 22:27:29 +0000 Subject: [PATCH] * srfi-13.c (scm_string_copyS): Fixed nasty bug. --- srfi/ChangeLog | 4 ++++ srfi/srfi-13.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index b64ea9d23..9e8779ccd 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,7 @@ +2001-05-08 Martin Grabmueller + + * srfi-13.c (scm_string_copyS): Fixed nasty bug. + 2001-05-05 Rob Browning * Makefile.am (srfi_DATA): added srfi-19.scm. 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