/* uz_c_cell(): ** ** True (1) iff [a] is a cell [*b *c]. */ uint8_t uz_c_cell(uz_machine mac, uz_noun a, uz_noun *b, uz_noun *c) { return !u3_lr_cell(mac->zen, a, b, c); }
/* u3_zx_gt(): */ u3_fox u3_zx_gt(u3_z z, u3_fox cob) { u3_fox a, b; if ( (u3_no == u3_lr_cell(z, cob, &a, &b)) || (u3_no == u3_lr_pat(z, a)) || (u3_no == u3_lr_pat(z, b)) ) { return u3_zc_tank(z, u3_cm_punt); } else { return u3_zx_gt_c(z, a, b); } }
/* u3_zx_mod(): */ u3_fox u3_zx_mod(u3_z z, u3_fox cor) { u3_fox sam = u3_zh(z, u3_zh(z, cor)); u3_fox a, b; if ( (u3_no == u3_lr_cell(z, sam, &a, &b)) || (u3_no == u3_lr_stud(z, a)) || (u3_no == u3_lr_stud(z, b)) ) { return u3_zc_tank(z, c3__punt); } else { return u3_zx_mod_c(z, a, b); } }