ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-01 19:46:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

5. removes %13 and %14 (nock 4K)

Browse Source
This commit is contained in:
Joe Bryan 2018-10-10 19:15:35 -04:00
parent c3ca5c24b6
commit 8f42a29933
4 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
jets/f/ut_mint.c
View File

@ -153,7 +153,7 @@
if ( 0 == u3h(nug) ) {
return u3k(u3t(nug));
}
else if ( (11 == u3h(nug)) || (13 == u3h(nug)) ) {
else if ( 11 == u3h(nug) ) {
return _mint_cove(u3t(u3t(nug)));
}
else {

2
jets/f/ut_mull.c
View File

@ -68,7 +68,7 @@
if ( 0 == u3h(nug) ) {
return u3k(u3t(nug));
}
else if ( (11 == u3h(nug)) || (13 == u3h(nug)) ) {
else if ( 11 == u3h(nug) ) {
return _mull_cove(u3t(u3t(nug)));
}
else {

4
noun/jets.c
View File

@ -249,7 +249,7 @@ _cj_axis(u3_noun fol)
{
u3_noun p_fol, q_fol, r_fol;
while ( _(u3du(fol)) && ((11 == u3h(fol)) || (13 == u3h(fol))) )
while ( _(u3du(fol)) && (11 == u3h(fol)) )
{ fol = u3t(u3t(fol)); }
if ( !_(u3r_trel(fol, &p_fol, &q_fol, &r_fol)) ) {
@ -436,7 +436,7 @@ _cj_je_fsck(u3_noun clu)
if ( 0 == (nam_c = _cj_chum(p_clu)) ) {
u3z(clu); return u3_none;
}
while ( _(u3du(q_clu)) && ((11 == u3h(q_clu)) || (13 == u3h(q_clu))) ) {
while ( _(u3du(q_clu)) && (11 == u3h(q_clu)) ) {
q_clu = u3t(u3t(q_clu));
}
if ( !_(u3du(q_clu)) ) {

15
noun/nock.c
View File

@ -1289,21 +1289,6 @@ _n_comp(u3_noun* ops, u3_noun fol, c3_o los_o, c3_o tel_o)
++tot_w; _n_emit(ops, (c3y == los_o) ? WILS : WISH);
break;
// temporary home for hint
case 13:
u3x_cell(arg, &hed, &tel);
tot_w += _n_bint(ops, hed, tel, los_o, tel_o);
break;
// temporary home for wish
case 14:
u3x_cell(arg, &hed, &tel);
tot_w += _n_comp(ops, hed, c3n, c3n);
++tot_w; _n_emit(ops, SWAP);
tot_w += _n_comp(ops, tel, c3n, c3n);
++tot_w; _n_emit(ops, (c3y == los_o) ? WILS : WISH);
break;
default:
u3m_bail(c3__exit);
return 0;