/* 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); } }