1 /* j/6/flip.c 2 ** 3 */ 4 #include "all.h" 5 6 7 /* functions 8 */ 9 u3_noun u3qf_flip(u3_noun hel)10 u3qf_flip(u3_noun hel) 11 { 12 if ( c3y == u3r_sing(1, u3h(hel)) ) { 13 if ( (c3y == u3t(hel)) ) { 14 return u3nc(1, c3n); 15 } 16 else { 17 c3_assert((c3n == u3t(hel))); 18 19 return u3nc(1, c3y); 20 } 21 } 22 else { 23 return u3nq(6, 24 u3k(hel), 25 u3nc(1, c3n), 26 u3nc(1, c3y)); 27 } 28 } 29 u3_noun u3wf_flip(u3_noun cor)30 u3wf_flip(u3_noun cor) 31 { 32 u3_noun hel; 33 34 if ( u3_none == (hel = u3r_at(u3x_sam, cor)) ) { 35 return u3m_bail(c3__fail); 36 } else { 37 return u3qf_flip(hel); 38 } 39 } 40