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

TCOs +weld jet

Browse Source
This commit is contained in:
Joe Bryan 2019-04-02 09:59:26 -07:00
parent 2f9d65ecd2
commit 53ca83f4bc
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/urbit/jets/b/weld.c
View File

@ -10,15 +10,19 @@
u3qb_weld(u3_noun a,
u3_noun b)
{
if ( 0 == a ) {
return u3k(b);
}
else if ( c3n == u3du(a) ) {
return u3m_bail(c3__exit);
}
else {
return u3nc(u3k(u3h(a)), u3qb_weld(u3t(a), b));
u3_noun c = u3qb_flop(a);
u3_noun d = c;
u3k(b);
while ( u3_nul != c ) {
b = u3nc(u3k(u3h(c)), b);
c = u3t(c);
}
u3z(d);
return b;
}
u3_noun
u3wb_weld(u3_noun cor)