urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 18:31:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

6. implements edit at %10 (nock 4K)

Browse Source
This commit is contained in:
Joe Bryan 2018-10-10 19:51:37 -04:00
parent b21b1c6fe1
commit 147941ba07
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
noun/nock.c
View File

@ -526,7 +526,7 @@ _n_nock_on(u3_noun bus, u3_noun fol)
#define SLIB 70 #define SLIB 70
#define SLIS 71 #define SLIS 71
#define SAVE 72 #define SAVE 72
// nock 12 // nock 10
#define MUTH 73 #define MUTH 73
#define KUTH 74 #define KUTH 74
#define MUTT 75 #define MUTT 75
@ -1302,20 +1302,7 @@ _n_comp(u3_noun* ops, u3_noun fol, c3_o los_o, c3_o tel_o)
} }
break; break;
case 11: case 10: {
u3x_cell(arg, &hed, &tel);
tot_w += _n_bint(ops, hed, tel, los_o, tel_o);
break;
case 12:
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;
case 12: {
u3_noun axe, nef; u3_noun axe, nef;
u3x_cell(arg, &hed, &tel); u3x_cell(arg, &hed, &tel);
u3x_cell(hed, &axe, &nef); u3x_cell(hed, &axe, &nef);
@ -1347,6 +1334,19 @@ _n_comp(u3_noun* ops, u3_noun fol, c3_o los_o, c3_o tel_o)
break; break;
} }
case 11:
u3x_cell(arg, &hed, &tel);
tot_w += _n_bint(ops, hed, tel, los_o, tel_o);
break;
case 12:
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: default:
u3m_bail(c3__exit); u3m_bail(c3__exit);
return 0; return 0;