u3: rewrites +murn jet using u3i_defcons()
#include "all.h"
u3_noun
- _murn_in(u3j_site* sit_u, u3_noun a)
+u3qb_murn(u3_noun a, u3_noun b)
{
- if ( 0 == a ) {
- return a;
- }
- else if ( c3n == u3du(a) ) {
- return u3m_bail(c3__exit);
+ u3_noun pro = u3_nul;
+
+ if ( u3_nul == a ) {
+ return u3_nul;
}
else {
- u3_noun one = u3j_gate_slam(sit_u, u3k(u3h(a)));
- u3_noun two = _murn_in(sit_u, u3t(a));
- u3_noun nex;
-
- switch ( u3ud(one) ) {
- case c3y: u3z(one);
- return two;
- case c3n: nex = u3nc(u3k(u3t(one)), two);
- u3z(one);
- return nex;
- default: u3z(one);
- u3z(two);
- return u3_none;
- }
- }
- }
-
-/* functions
-*/
- u3_noun
- u3qb_murn(u3_noun a, u3_noun b)
- {
u3_noun pro;
+ u3_noun* lit = &pro;
u3j_site sit_u;
+
u3j_gate_prep(&sit_u, u3k(b));
- pro = _murn_in(&sit_u, a);
+ {
+ u3_noun* hed;
+ u3_noun* tel;
+ u3_noun res, i, t = a;
+
+ do {
+ u3x_cell(t, &i, &t);
+
+ res = u3j_gate_slam(&sit_u, u3k(i));
+
+ if ( u3_nul != res ) {
+ *lit = u3i_defcons(&hed, &tel);
+ *hed = u3t(res);
+ lit = tel;
+ }
+ }
+ while ( u3_nul != t );
+ }
u3j_gate_lose(&sit_u);
+
+ *lit = u3_nul;
+
return pro;
}
+}
+
u3_noun
u3wb_murn(u3_noun cor)
{
u3_noun a, b;
-
- if ( c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0) ) {
- return u3m_bail(c3__exit);
- } else {
+ u3x_mean(cor, u3x_sam_2, &a, u3x_sam_3, &b, 0);
return u3qb_murn(a, b);
}
- }
-
