1 /* j/2/lent.c 2 ** 3 */ 4 #include "all.h" 5 6 7 /* functions 8 */ 9 u3_noun u3qb_lent(u3_noun a)10 u3qb_lent(u3_noun a) 11 { 12 u3_noun len = 0; 13 14 while ( 1 ) { 15 if ( 0 == a ) { 16 return len; 17 } 18 else if ( c3n == u3du(a) ) { 19 u3z(len); 20 return u3m_bail(c3__exit); 21 } 22 else { 23 len = u3i_vint(len); 24 a = u3t(a); 25 } 26 } 27 } 28 u3_noun u3wb_lent(u3_noun cor)29 u3wb_lent(u3_noun cor) 30 { 31 u3_noun a; 32 33 if ( u3_none == (a = u3r_at(u3x_sam, cor)) ) { 34 return u3m_bail(c3__exit); 35 } else { 36 return u3qb_lent(a); 37 } 38 } 39 u3_noun u3kb_lent(u3_noun a)40 u3kb_lent(u3_noun a) 41 { 42 u3_noun b = u3qb_lent(a); 43 44 u3z(a); 45 return b; 46 } 47 48