About to move tshx to tstr.

This commit is contained in:
C. Guy Yarvin 2016-01-16 00:30:22 -08:00
parent 2d4045f3c9
commit 0c597de194
3 changed files with 3 additions and 46 deletions

View File

@ -659,20 +659,7 @@
u3z(dov);
return ret;
}
case c3__tstr: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mint_used();
{
u3_noun sag = u3nt(u3nt(u3nc(u3k(p_gen), u3k(q_gen)), u3_nul, u3_nul),
u3_nul,
u3_nul);
u3_noun boc = u3qf_face(sag, sut);
u3_noun ret = _mint_in(van, boc, gol, r_gen);
u3z(sag);
u3z(boc);
return ret;
}
case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mint_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);

View File

@ -602,23 +602,7 @@
u3z(lem);
return ret;
}
case c3__tstr: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mull_used();
{
u3_noun sag = u3nt(u3nt(u3nc(u3k(p_gen), u3k(q_gen)), u3_nul, u3_nul),
u3_nul,
u3_nul);
u3_noun boc = u3qf_face(sag, sut);
u3_noun nuf = u3qf_face(sag, dox);
u3_noun ret = _mull_in(van, boc, gol, nuf, r_gen);
u3z(sag);
u3z(boc);
u3z(nuf);
return ret;
}
case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_mull_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);

View File

@ -353,21 +353,7 @@
u3z(boc);
return ret;
}
case c3__tstr: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_play_used();
{
u3_noun sag = u3nt(u3nt(u3nc(u3k(p_gen), u3k(q_gen)), u3_nul, u3_nul),
u3_nul,
u3_nul);
u3_noun boc = u3qf_face(sag, sut);
u3_noun ret = _play_x(van, boc, r_gen);
u3z(sag);
u3z(boc);
return ret;
}
case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
case c3__tstr: case c3__tshx: u3x_trel(u3t(gen), &p_gen, &q_gen, &r_gen);
_play_used();
{
u3_noun boc = u3qfu_buss(van, sut, p_gen, q_gen);