Eliminate old-fashioned burn.

This commit is contained in:
C. Guy Yarvin 2018-03-10 20:57:02 -08:00
parent 76d3f2e897
commit 55e895036c
2 changed files with 3 additions and 26 deletions

View File

@ -551,6 +551,7 @@
# define c3__i c3_s1('i')
# define c3__ic c3_s2('i','c')
# define c3__ice c3_s3('i','c','e')
# define c3__iced c3_s4('i','c','e','d')
# define c3__if c3_s2('i','f')
# define c3__ifix c3_s4('i','f','i','x')
# define c3__in c3_s2('i','n')

View File

@ -567,31 +567,6 @@
return u3nc(u3qf_face(p_gen, sut), u3nc(0, 1));
}
case c3__ktsg: p_gen = u3t(gen);
_mint_used();
{
u3_noun nef = _mint_in(van, sut, gol, p_gen);
u3_noun p_nef = u3h(nef);
u3_noun q_nef = u3t(nef);
u3_noun fom;
{
u3_noun cag = u3qfu_burn(van, sut);
u3_noun wim = u3n_nock_an(cag, u3k(q_nef));
if ( 0 == u3h(wim) ) {
fom = u3nc(1, u3k(u3t(wim)));
} else {
fom = u3k(q_nef);
}
u3z(wim);
}
ret = u3nc(u3k(p_nef), fom);
u3z(nef);
return ret;
}
case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mint_used();
{
@ -719,7 +694,8 @@
return ret;
}
case c3__cold: p_gen = u3t(gen);
case c3__cold:
case c3__ktsg: p_gen = u3t(gen);
_mint_used();
{