Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

UTF8 support

Browse source
This commit is contained in:
Justin Ethier 2017-11-06 16:00:11 +00:00
parent 9962bca854
commit 471f0d4b50
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/process-context.sld
View file

@ -24,7 +24,7 @@
for (i = _cyc_argc; i > 0; i--) { for (i = _cyc_argc; i > 0; i--) {
object ps = alloca(sizeof(string_type)); object ps = alloca(sizeof(string_type));
object pl = alloca(sizeof(pair_type)); object pl = alloca(sizeof(pair_type));
make_string(s, _cyc_argv[i - 1]); make_utf8_string(data, s, _cyc_argv[i - 1]);
memcpy(ps, &s, sizeof(string_type)); memcpy(ps, &s, sizeof(string_type));
((list)pl)->hdr.mark = gc_color_red; ((list)pl)->hdr.mark = gc_color_red;
((list)pl)->hdr.grayed = 0; ((list)pl)->hdr.grayed = 0;
@ -44,7 +44,7 @@
if (v == NULL) { if (v == NULL) {
return_closcall1(data, k, boolean_f); return_closcall1(data, k, boolean_f);
} else { } else {
make_string(str, v); make_utf8_string(data, str, v);
return_closcall1(data, k, &str); return_closcall1(data, k, &str);
} }
") ")