ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 23:12:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Tentatively applying forq.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-01-10 20:23:32 -08:00
parent 17e1196eb4
commit baaa74dae1
5 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
jets/f/ut_crop.c
View File

@ -231,7 +231,7 @@
u3z(hin); u3z(hin);
return ret; return ret;
} }
#if 0 #ifdef FROG
case c3__frog: p_ref = u3t(ref); case c3__frog: p_ref = u3t(ref);
{ {
return _crop_sint_frog(van, sut, p_ref, bix); return _crop_sint_frog(van, sut, p_ref, bix);
@ -240,7 +240,7 @@
case c3__frog: p_ref = u3t(ref); case c3__frog: p_ref = u3t(ref);
{ {
u3_noun fag = u3qf_grof(p_ref); u3_noun fag = u3qf_grof(p_ref);
u3_noun ret = _crop_sint(van, sut, p_ref, bix); u3_noun ret = _crop_sint(van, sut, fag, bix);
u3z(fag); u3z(fag);
return ret; return ret;

11
jets/f/ut_nest.c
View File

@ -448,6 +448,7 @@
} }
else return u3m_bail(c3__fail); else return u3m_bail(c3__fail);
} }
#ifdef FROG
case c3__frog: { case c3__frog: {
p_ref = u3t(ref); p_ref = u3t(ref);
@ -460,6 +461,16 @@
} }
return c3y; return c3y;
} }
#else
case c3__frog: p_ref = u3t(ref);
{
u3_noun fag = u3qf_grof(p_ref);
u3_noun ret = _nest_dext(van, sut, tel, fag, seg, reg, gil);
u3z(fag);
return ret;
}
#endif
case c3__hold: { case c3__hold: {
if ( c3y == u3qdi_has(reg, ref) ) { if ( c3y == u3qdi_has(reg, ref) ) {
return c3y; return c3y;

2
jets/f/ut_peek.c
View File

@ -122,7 +122,7 @@
u3_noun hed = _peek_in(van, p_sut, way, axe, gil); u3_noun hed = _peek_in(van, p_sut, way, axe, gil);
u3_noun tal = _peek_in(van, q_sut, way, axe, gil); u3_noun tal = _peek_in(van, q_sut, way, axe, gil);
pro = u3qf_fork(hed, tal); pro = u3qf_forq(hed, tal);
u3z(hed); u3z(hed);
u3z(tal); u3z(tal);

2
jets/f/ut_play.c
View File

@ -234,7 +234,7 @@
: _play_x(van, fex, q_gen); : _play_x(van, fex, q_gen);
u3_noun doz = (wux == c3__void) ? c3__void u3_noun doz = (wux == c3__void) ? c3__void
: _play_x(van, wux, r_gen); : _play_x(van, wux, r_gen);
u3_noun ret = u3qf_fork(dez, doz); u3_noun ret = u3qf_forq(dez, doz);
u3z(dez); u3z(doz); u3z(dez); u3z(doz);
u3z(fex); u3z(wux); u3z(fex); u3z(wux);

4
noun/manage.c
View File

@ -604,9 +604,9 @@ u3m_bail(u3_noun how)
} }
switch ( how ) { switch ( how ) {
#if 0 #if 1
case c3__meme:
case c3__fail: case c3__fail:
case c3__meme:
#endif #endif
case c3__foul: case c3__foul:
case c3__oops: case c3__oops: