urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-03 01:54:43 +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);
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(nef);
@ -549,6 +548,11 @@
return ret;
}
case c3__hand:
_mint_used();
{
return u3k(u3t(gen));
}
case c3__ktbr: p_gen = u3t(gen);
_mint_used();
{

5
jets/f/ut_mull.c
View File

@ -505,6 +505,11 @@
u3_noun typ = u3qfu_play(van, sut, gen);
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);
_mull_used();
{

5
jets/f/ut_play.c
View File

@ -288,6 +288,11 @@
{
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);
_play_used();
{

4
noun/nock.c
View File

@ -345,10 +345,12 @@ _n_nock_on(u3_noun bus, u3_noun fol)
}
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;
u3t_off(noc_o);
u3z(ref);
val = u3m_soft_esc(u3k(gof));
u3t_on(noc_o);