urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 13:04:17 +03:00
Code Issues Packages Projects Releases Wiki Activity

Template language.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-04-02 18:06:45 -07:00
parent 5a1e02fb48
commit 175da45fa9
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gen164/6/ut_heal.c
View File

@ -131,7 +131,14 @@
return ret; return ret;
} }
} }
case c3__face: u2_bi_cell(wir_r, u2_t(sut), &p_sut, &q_sut);
{
u2_noun dun = _heal_to(wir_r, van, q_sut, gil, qog, ref, now, lat);
u2_noun ret = j2_mby(Pt6, face)(wir_r, p_sut, dun);
u2_rl_lose(wir_r, dun);
return ret;
}
case c3__fork: u2_bi_cell(wir_r, u2_t(sut), &p_sut, &q_sut); case c3__fork: u2_bi_cell(wir_r, u2_t(sut), &p_sut, &q_sut);
{ {
u2_noun dis = _heal_to(wir_r, van, p_sut, gil, qog, ref, now, lat); u2_noun dis = _heal_to(wir_r, van, p_sut, gil, qog, ref, now, lat);

4
gen164/6/ut_tack.c
View File

@ -19,6 +19,8 @@
u2_noun mur, // retain u2_noun mur, // retain
u2_atom axe) // retain u2_atom axe) // retain
{ {
c3_assert(0);
if ( u2_no == u2_dust(peh) ) { if ( u2_no == u2_dust(peh) ) {
return u2_bc(wir_r, u2_rx(wir_r, axe), u2_rx(wir_r, mur)); return u2_bc(wir_r, u2_rx(wir_r, axe), u2_rx(wir_r, mur));
} }
@ -62,7 +64,7 @@
u2_noun ret = u2_bc u2_noun ret = u2_bc
(wir_r, u2_rx(wir_r, p_gav), (wir_r, u2_rx(wir_r, p_gav),
j2_mcy(Pt6, ut, heal)(wir_r, van, sut, u2_nul, bax, q_gav)); j2_mcy(Pt6, ut, heal)(wir_r, van, sut, u2_nul, bax, q_gav));
u2_rz(wir_r, gav); u2_rz(wir_r, gav);
u2_rz(wir_r, nax); u2_rz(wir_r, nax);
u2_rz(wir_r, vas); u2_rz(wir_r, vas);