All forks now generated as frog.

This commit is contained in:
C. Guy Yarvin 2016-01-10 20:43:13 -08:00
parent baaa74dae1
commit 7447cc418b
4 changed files with 9 additions and 25 deletions

View File

@ -158,7 +158,7 @@
{
u3_noun dis = _crop_dext(van, p_sut, ref, bix);
u3_noun dat = _crop_dext(van, q_sut, ref, bix);
u3_noun ret = u3qf_fork(dis, dat);
u3_noun ret = u3qf_forq(dis, dat);
u3z(dis);
u3z(dat);

View File

@ -437,7 +437,7 @@
u3_noun hiq = _mint_in(van, fex, gol, q_gen);
u3_noun ran = _mint_in(van, wux, gol, r_gen);
ret = u3nc(u3qf_fork(u3h(hiq),
ret = u3nc(u3qf_forq(u3h(hiq),
u3h(ran)),
_mint_cond(duy,
u3k(u3t(hiq)),

View File

@ -413,8 +413,8 @@
}
else ran = _mull_in(van, p_wux, gol, q_wux, r_gen);
dis = u3qf_fork(u3h(hiq), u3h(ran));
dat = u3qf_fork(u3t(hiq), u3t(ran));
dis = u3qf_forq(u3h(hiq), u3h(ran));
dat = u3qf_forq(u3t(hiq), u3t(ran));
ret = u3nc(_mull_nice(van, gol, dis), dat);

View File

@ -26,26 +26,10 @@
u3_noun gar)
{
u3_noun gun = u3qdi_gas(u3_nul, gar);
u3_noun nog = u3qdi_tap(gun, u3_nul);
u3_noun yed = u3qdi_tap(gun, u3_nul);
u3z(gun);
return nog;
}
static u3_noun
_rest_in_fork(u3_noun nog,
u3_noun fub)
{
if ( c3n == u3du(nog) ) {
return fub;
} else {
u3_noun buf = _rest_in_fork(u3t(nog),
u3qf_fork(u3h(nog),
fub));
u3z(fub);
return buf;
}
return yed;
}
static u3_noun
@ -53,11 +37,11 @@
u3_noun leg)
{
u3_noun gar = _rest_in_list(van, leg);
u3_noun nog = _rest_in_stil(van, gar);
u3_noun fub = _rest_in_fork(nog, c3__void);
u3_noun yed = _rest_in_stil(van, gar);
u3_noun fub = u3qf_frog(yed);
u3z(gar);
u3z(nog);
u3z(yed);
return fub;
}