diff --git a/jets/f/ut_mint.c b/jets/f/ut_mint.c index 149af46300..2354e476b3 100644 --- a/jets/f/ut_mint.c +++ b/jets/f/ut_mint.c @@ -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(); { diff --git a/jets/f/ut_mull.c b/jets/f/ut_mull.c index 5f9824c306..b7eac91c9a 100644 --- a/jets/f/ut_mull.c +++ b/jets/f/ut_mull.c @@ -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(); { diff --git a/jets/f/ut_play.c b/jets/f/ut_play.c index 726860089f..361819477b 100644 --- a/jets/f/ut_play.c +++ b/jets/f/ut_play.c @@ -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(); { diff --git a/noun/nock.c b/noun/nock.c index c1296a5797..54010b7a3e 100644 --- a/noun/nock.c +++ b/noun/nock.c @@ -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);