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;
}
}
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);
{
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_atom axe) // retain
{
c3_assert(0);
if ( u2_no == u2_dust(peh) ) {
return u2_bc(wir_r, u2_rx(wir_r, axe), u2_rx(wir_r, mur));
}
@ -62,7 +64,7 @@
u2_noun ret = u2_bc
(wir_r, u2_rx(wir_r, p_gav),
j2_mcy(Pt6, ut, heal)(wir_r, van, sut, u2_nul, bax, q_gav));
u2_rz(wir_r, gav);
u2_rz(wir_r, nax);
u2_rz(wir_r, vas);