/* u2_bn_words():
**
** Copy [a] words from [b] into an atom.
*/
u2_noun
u2_bn_words(u2_ray wir_r,
c3_w a_w,
const c3_w* b_w)
{
return u2_bl_good(wir_r, u2_rl_words(wir_r, a_w, b_w));
}
/* functions
*/
u2_weak // transfer
j2_mbc(Pt3, met)(u2_wire wir_r,
u2_atom a, // retain
u2_atom b) // retain
{
if ( !u2_fly_is_cat(a) || (a >= 32) ) {
if ( _0 == b ) {
return _0;
} else return _1;
}
else {
c3_w met_w = u2_met(a, b);
if ( !u2_fly_is_cat(met_w) ) {
return u2_rl_words(wir_r, 1, &met_w);
}
else return u2_met(a, b);
}
}
