suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix vector-copy! bug (PR 10026)

Browse Source 
svn: r13111
This commit is contained in:
Matthew Flatt 2009-01-14 13:02:03 +00:00
parent a1f7e3caa2
commit 4759e25019
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/string.c
View File

@ -968,7 +968,7 @@ void scheme_get_substring_indices(const char *name, Scheme_Object *str,
if (SCHEME_VECTORP(str))
len = SCHEME_VEC_SIZE(str);
if (SCHEME_CHAR_STRINGP(str))
else if (SCHEME_CHAR_STRINGP(str))
len = SCHEME_CHAR_STRTAG_VAL(str);
else
len = SCHEME_BYTE_STRTAG_VAL(str);