u3_noun u3qfu_lose(u3_noun van, u3_noun sut, u3_noun gen) { u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0); u3_noun gat = u3j_cook("u3qfu_lose-lose", von, "lose"); return u3n_kick_on(u3i_molt(gat, u3x_sam, u3k(gen), 0)); }
/* fish */ u3_noun u3qfr_fish(u3_noun van, u3_noun ref, u3_noun syn, u3_noun axe) { u3_noun gat = u3j_soft(_ar_core(van, ref, syn), "fish"); return u3n_kick_on(u3i_molt(gat, u3x_sam, u3k(axe), 0)); }
/* u3n_slam_on(): produce (gat sam). */ u3_noun u3n_slam_on(u3_noun gat, u3_noun sam) { u3_noun cor = u3nc(u3k(u3h(gat)), u3nc(sam, u3k(u3t(u3t(gat))))); #if 0 if ( &u3H->rod_u == u3R ) { if ( exc_w == 1 ) { c3_assert(0); } exc_w++; } #endif u3z(gat); return u3n_kick_on(cor); }
static u3_noun _play_cnts(u3_noun van, u3_noun sut, u3_noun hyp, u3_noun rig) { u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0); u3_noun gat = u3j_hook(von, "epla"); return u3n_kick_on(u3i_molt(gat, u3x_sam_2, u3k(hyp), u3x_sam_3, u3k(rig), 0)); }
/* pose */ u3_noun u3qe_pose(u3_noun vex, u3_noun sab) { u3_noun p_vex, q_vex; u3x_cell(vex, &p_vex, &q_vex); if ( c3y == u3du(q_vex) ) { return u3k(vex); } else { u3_noun roq = u3x_good(u3n_kick_on(u3k(sab))); u3_noun p_roq, q_roq; u3_noun ret; u3x_cell(roq, &p_roq, &q_roq); ret = u3nc(_last(p_vex, p_roq), u3k(q_roq)); u3z(roq); return ret; } }