diff --git a/jets/b/roll.c b/jets/b/roll.c index bedff9abe6..448c252756 100644 --- a/jets/b/roll.c +++ b/jets/b/roll.c @@ -7,22 +7,17 @@ _roll_in(u3j_site* sit_u, u3_noun a, u3_noun b) { if ( 0 == a ) { - return u3k(b); + return b; } else if ( c3n == u3du(a) ) { return u3m_bail(c3__exit); } else { - u3_noun gim = u3k(u3h(a)); - u3_noun zor = u3k(b); - u3_noun daz = u3j_gate_slam(sit_u, u3nc(gim, zor)); - u3_noun hox = _roll_in(sit_u, u3t(a), daz); - u3z(daz); - return hox; + b = u3j_gate_slam(sit_u, u3nc(u3k(u3h(a)), b)); + return _roll_in(sit_u, u3t(a), b); } } - /* functions */ u3_noun @@ -32,7 +27,7 @@ u3_noun pro; u3j_site sit_u; u3j_gate_prep(&sit_u, b); - pro = _roll_in(&sit_u, a, u3r_at(u3x_sam_3, b)); + pro = _roll_in(&sit_u, a, u3k(u3r_at(u3x_sam_3, b))); u3j_gate_lose(&sit_u); return pro; }