Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Justin Ethier 2016-03-29 01:09:07 -04:00
parent 8ef3cb7e61
commit 6c91607d9b
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
runtime.c
View file

@ -1520,8 +1520,11 @@ object Cyc_utf82string(void *data, object cont, object bv, object start, object
len = e - s; len = e - s;
{ {
make_string_with_len(str, &(((bytevector)bv)->data)[s], len); make_string_noalloc(st, NULL, len);
return_closcall1(data, cont, &str); st.str = alloca(sizeof(char) * (len + 1));
memcpy(st.str, &buf[s], len);
st.str[len] = '\0';
return_closcall1(data, cont, &st);
} }
} }