/* _mill_diff(): like difference.
*/
u4_form
_mill_diff(u4_milr m,
u4_axis axe,
u4_type gan,
u4_type tip)
{
u4_type zug = _mill_flap(m, axe, gan);
if ( _mill_orth(m, tip, zug) ) {
return u4_k_cell(m->lane, u4_noun_1, u4_noun_1);
}
if ( _mill_cong(m, tip, zug) ) {
return u4_k_cell(m->lane, u4_noun_1, u4_noun_0);
}
return _mill_fish(m, axe, gan);
}
/* _mill_diff(): test difference.
*/
u4_form
_mill_diff(u4_milr m,
u4_axis nar,
u4_type dol,
u4_type sef)
{
u4_type zug = _mill_flap(m, nar, dol);
if ( _mill_orth(m, sef, zug) ) {
return u4_k_cell(m->lane, u4_noun_1, u4_noun_1);
}
if ( _mill_cong(m, sef, zug) ) {
return u4_k_cell(m->lane, u4_noun_1, u4_noun_0);
}
return _mill_fish(m, nar, dol);
}
/* _mill_b_like()::
*/
u4_nock
_mill_b_like(u4_milr m,
u4_rope rid,
u4_gene bul,
u4_mold tip)
{
u4_loaf fod = _mill_look(m, rid, tip);
u4_mold gan = _mill_play(m, bul, tip);
u4_axis axe;
if ( !u4_b_p(u4_ct(fod), u4_noun_0, &axe) ) {
return _mill_fail(m, "fat like");
}
else {
return _mill_fish(m, axe, gan);
}
}
