urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 02:57:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Some zpgr rationalization.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-26 11:03:05 -08:00
parent e7187ea771
commit eca8938c2b
4 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
jets/f/ut_mint.c
View File

@ -502,8 +502,7 @@
u3_noun viz = _mint_in(van, sut, c3__noun, q_gen); u3_noun viz = _mint_in(van, sut, c3__noun, q_gen);
ret = u3nc(u3k(u3h(nef)), ret = u3nc(u3k(u3h(nef)),
u3nt(12, u3nc(1, 0), u3k(u3t(viz)))); u3nt(12, u3nc(1, u3k(u3h(nef))), u3k(u3t(viz))));
// u3nt(12, u3nc(1, u3k(u3h(nef))), u3k(u3t(viz))));
u3z(viz); u3z(viz);
u3z(nef); u3z(nef);
@ -549,6 +548,11 @@
return ret; return ret;
} }
case c3__hand:
_mint_used();
{
return u3k(u3t(gen));
}
case c3__ktbr: p_gen = u3t(gen); case c3__ktbr: p_gen = u3t(gen);
_mint_used(); _mint_used();
{ {

5
jets/f/ut_mull.c
View File

@ -505,6 +505,11 @@
u3_noun typ = u3qfu_play(van, sut, gen); u3_noun typ = u3qfu_play(van, sut, gen);
return _mull_both(van, gol, typ); return _mull_both(van, gol, typ);
} }
case c3__hand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_mull_used();
{
return u3nc(u3k(p_gen), u3k(p_gen));
}
case c3__ktbr: p_gen = u3t(gen); case c3__ktbr: p_gen = u3t(gen);
_mull_used(); _mull_used();
{ {

5
jets/f/ut_play.c
View File

@ -288,6 +288,11 @@
{ {
return _play_sand(p_gen, q_gen); return _play_sand(p_gen, q_gen);
} }
case c3__hand: u3x_cell(u3t(gen), &p_gen, &q_gen);
_play_used();
{
return u3k(p_gen);
}
case c3__ktbr: p_gen = u3t(gen); case c3__ktbr: p_gen = u3t(gen);
_play_used(); _play_used();
{ {

4
noun/nock.c
View File

@ -345,10 +345,12 @@ _n_nock_on(u3_noun bus, u3_noun fol)
} }
case 11: { case 11: {
u3_noun gof = _n_nock_on(bus, u3k(gal)); u3_noun ref = _n_nock_on(u3k(bus), u3k(u3h(gal)));
u3_noun gof = _n_nock_on(bus, u3k(u3t(gal)));
u3_noun val; u3_noun val;
u3t_off(noc_o); u3t_off(noc_o);
u3z(ref);
val = u3m_soft_esc(u3k(gof)); val = u3m_soft_esc(u3k(gof));
u3t_on(noc_o); u3t_on(noc_o);