mirror of
https://github.com/urbit/shrub.git
synced 2024-12-16 23:04:16 +03:00
All forks now generated as frog.
This commit is contained in:
parent
baaa74dae1
commit
7447cc418b
@ -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);
|
||||
|
@ -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)),
|
||||
|
@ -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);
|
||||
|
||||
|
@ -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;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user