mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

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

Browse source
This commit is contained in:
Martin Grabmüller 2001-05-07 22:27:29 +00:00
parent df937d20e0
commit 2abe254dac
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/ChangeLog
View file

@ -1,3 +1,7 @@
2001-05-08 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* srfi-13.c (scm_string_copyS): Fixed nasty bug.
2001-05-05 Rob Browning <rlb@cs.utexas.edu>
* Makefile.am (srfi_DATA): added srfi-19.scm.

2
srfi/srfi-13.c
View file

@ -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