Template language.

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

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);

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));
} }