static u2_flag
_nest_dext(u2_wire wir_r,
u2_noun van,
u2_noun sut,
u2_flag tel,
u2_noun ref,
u2_noun gil)
{
if ( (u2_yes == u2_sing(sut, ref)) ) {
return u2_yes;
}
{
u2_ho_jet *jet_j = &j2_mcj(Pt6, ut, nest)[0];
if ( !(jet_j->sat_s & u2_jet_memo) ) {
return _nest_dext_to(wir_r, van, sut, tel, ref, gil);
} else {
c3_m fun_m = u2_jet_fun_m(jet_j);
u2_noun pro = u2_rl_find_cell(wir_r, fun_m, sut, ref);
if ( u2_none != pro ) {
return pro;
}
else {
pro = _nest_dext_to(wir_r, van, sut, tel, ref, gil);
return u2_rl_save_cell(wir_r, fun_m, sut, ref, pro);
}
}
}
}
static u3_noun
_nest_dext(
u3_noun van,
u3_noun sut,
u3_noun tel,
u3_noun ref,
u3_noun gil)
{
if ( (c3y == u3r_sing(sut, ref)) ) {
return c3y;
}
{
c3_m fun_m = c3__nest;
u3_noun pro = u3z_find_2(fun_m, sut, ref);
if ( u3_none != pro ) {
return pro;
}
else {
pro = _nest_dext_to(van, sut, tel, ref, gil);
return u3z_save_2(fun_m, sut, ref, pro);
}
}
}