urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-16 14:58:25 +03:00
Code Issues Packages Projects Releases Wiki Activity

We appear to be beyond frog; must double check.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-14 00:55:12 -08:00
parent 45e16630a5
commit 8b4f549e1a
3 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
jets/f/fork.c
View File

@ -20,8 +20,6 @@
return u3k(bur);
}
else return u3kf_frog(u3nt(u3k(hoz), u3k(bur), u3_nul));
// else return u3nq
// (c3__frog, u3k(hoz), u3k(bur), u3_nul);
}
u3_noun

8
jets/f/ut.c
View File

@ -61,7 +61,13 @@
const c3_c* paz_c,
u3_noun typ)
{
u3_lo_tank(0, u3n_kick_on(u3qfu_dunq(van, paz_c, typ)));
c3_c* pfix_c = u3r_string((c3y == u3du(typ)) ? u3h(typ) : typ);
c3_c ugh_c[1024];
sprintf(ugh_c, "%s: %s: 0x%8x:",
paz_c, pfix_c, u3r_mug(typ));
u3_lo_tank(0, u3n_kick_on(u3qfu_dunq(van, ugh_c, typ)));
}
// shew: create a show core for mean

15
jets/f/ut_nest.c
View File

@ -326,7 +326,6 @@
case c3__hold:
{
if ( c3y == u3qdi_has(seg, sut) ) {
u3qfu_dump(van, "segd", u3nt(c3__cell, u3k(sut), u3k(ref)));
return c3n;
}
else {
@ -367,12 +366,9 @@
u3_noun tyn = _nest_dext_in(van, sut, tel, ref, seg, reg, gil);
if ( (c3y == tyn) || (c3n == tel) ) {
if ( c3n == tyn ) {
u3qfu_dump(van, "dext", u3nt(c3__cell, u3k(sut), u3k(ref)));
}
return tyn;
} else {
#if 1
#if 0
u3_noun dun = u3qfu_dunq(van, "need", sut);
u3_noun niz = u3qfu_dunq(van, "have", ref);
@ -407,7 +403,12 @@
else {
pro = _nest_dext_to(van, sut, tel, ref, seg, reg, gil);
return u3z_save_2(fun_m, sut, ref, pro);
if ( ((c3y == pro) && (u3_nul == reg)) ||
((c3n == pro) && (u3_nul == seg)) )
{
return u3z_save_2(fun_m, sut, ref, pro);
}
else return pro;
}
}
}
@ -484,8 +485,6 @@
while ( u3_nul != p_ref ) {
if ( c3n == _nest_dext(van, sut, tel, u3h(p_ref), seg, reg, gil) ) {
u3qfu_dump(van, "fail",
u3nt(c3__cell, u3k(sut), u3k(u3h(p_ref))));
return c3n;
}
else {