refactors event poke, removing unnecessary effect traversal

This commit is contained in:
Joe Bryan 2018-12-12 00:37:56 -05:00
parent 050c8ce104
commit dfecb3a1cb

View File

@ -1601,38 +1601,26 @@ _raft_punk(u3_noun ovo)
free(txt_c); free(txt_c);
#endif #endif
if ( u3_blip != u3h(gon) ) { {
u3_noun why = u3k(u3h(gon)); u3_noun hed, tal;
u3_noun tan = u3k(u3t(gon)); u3x_cell(gon, &hed, &tal);
u3k(hed); u3k(tal);
u3z(gon); u3z(gon);
return _raft_lame(ovo, why, tan);
}
else {
u3_noun vir = u3k(u3h(u3t(gon)));
u3_noun cor = u3k(u3t(u3t(gon)));
u3_noun nug;
u3z(gon); if ( u3_blip != hed ) {
nug = u3v_nick(vir, cor); return _raft_lame(ovo, hed, tal);
if ( u3_blip != u3h(nug) ) {
u3_noun why = u3k(u3h(nug));
u3_noun tan = u3k(u3t(nug));
u3z(nug);
return _raft_lame(ovo, why, tan);
} }
else { else {
vir = u3k(u3h(u3t(nug))); u3_noun vir, cor;
cor = u3k(u3t(u3t(nug))); u3x_cell(tal, &vir, &cor);
u3k(vir); u3k(cor);
u3z(tal);
u3z(nug);
return _raft_sure(ovo, vir, cor); return _raft_sure(ovo, vir, cor);
} }
} }
// uL(fprintf(uH, "punk oot %s\n", txt_c));
// free(txt_c);
} }
/* _raft_push(): save an event /* _raft_push(): save an event