urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 06:35:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

TCOs +turn jet

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

15
pkg/urbit/jets/b/turn.c
View File

@ -6,14 +6,15 @@
static u3_noun static u3_noun
_turn_in(u3j_site* sit_u, u3_noun a) _turn_in(u3j_site* sit_u, u3_noun a)
{ {
if ( u3_nul == a ) { u3_noun b = u3_nul;
return u3_nul;
} while ( u3_nul != a ) {
else { b = u3nc(u3j_gate_slam(sit_u, u3k(u3h(a))),
return u3nc( b);
u3j_gate_slam(sit_u, u3k(u3h(a))), a = u3t(a);
_turn_in(sit_u, u3t(a)));
} }
return u3kb_flop(b);
} }
/* functions /* functions