u3: updates %leer jet (+to-wain) to use u3i_defcons()
u3_noun
u3qe_leer(u3_atom txt)
+ {
+ u3_noun pro;
+ u3_noun* lit = &pro;
+
{
c3_w pos_w, i_w = 0, len_w = u3r_met(3, txt);
- u3_noun out = u3_nul;
while ( 1 ) {
// scan till end or newline
break;
}
}
+
// append to list
- out = u3nc(_lore_cut(pos_w, i_w - pos_w, txt), out);
+ {
+ u3_noun* hed;
+ u3_noun* tel;
+
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = _lore_cut(pos_w, i_w - pos_w, txt);
+ lit = tel;
+ }
+
// finish or advance
if ( i_w++ == len_w ) {
break;
}
}
+ }
+
+ *lit = u3_nul;
- return u3kb_flop(out);
+ return pro;
}
u3_noun
