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);
return ret;
}
#if 0
#ifdef FROG
case c3__frog: p_ref = u3t(ref);
{
return _crop_sint_frog(van, sut, p_ref, bix);
@ -240,7 +240,7 @@
case c3__frog: p_ref = u3t(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);
return ret;

11
jets/f/ut_nest.c
View File

@ -448,6 +448,7 @@
}
else return u3m_bail(c3__fail);
}
#ifdef FROG
case c3__frog: {
p_ref = u3t(ref);
@ -460,6 +461,16 @@
}
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: {
if ( c3y == u3qdi_has(reg, ref) ) {
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 tal = _peek_in(van, q_sut, way, axe, gil);
pro = u3qf_fork(hed, tal);
pro = u3qf_forq(hed, tal);
u3z(hed);
u3z(tal);

2
jets/f/ut_play.c
View File

@ -234,7 +234,7 @@
: _play_x(van, fex, q_gen);
u3_noun doz = (wux == c3__void) ? c3__void
: _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(fex); u3z(wux);

4
noun/manage.c
View File

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