urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 22:33:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

Support long ~$ symbols.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-12-06 16:33:24 -08:00
parent fbaa88039f
commit 62b20b56ee
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
noun/trace.c
View File

@ -82,6 +82,12 @@ u3t_slog(u3_noun hod)
void void
u3t_heck(u3_atom cog) u3t_heck(u3_atom cog)
{ {
c3_w len_w = u3r_met(3, cog);
c3_c* str_c = alloca(1 + len_w);
u3r_bytes(0, len_w, (c3_y *)str_c, cog);
str_c[len_w] = 0;
// Profile sampling, because it allocates on the home road, // Profile sampling, because it allocates on the home road,
// only works on when we're not at home. // only works on when we're not at home.
// //
@ -94,7 +100,7 @@ u3t_heck(u3_atom cog)
if ( 0 == u3R->pro.day ) { if ( 0 == u3R->pro.day ) {
u3R->pro.day = u3v_do("doss", 0); u3R->pro.day = u3v_do("doss", 0);
} }
u3R->pro.day = u3dc("pi-heck", u3a_take(cog), u3R->pro.day); u3R->pro.day = u3dc("pi-heck", u3i_string(str_c), u3R->pro.day);
} }
u3R = rod_u; u3R = rod_u;
} }