u3: adds ghetto +mook replacement

This commit is contained in:
Joe Bryan 2020-11-19 15:43:27 -08:00
parent f542e5d3aa
commit 47224ab88f

View File

@ -1215,6 +1215,32 @@ u3m_soft(c3_w mil_w,
// XX produce specific error motes instead of %2? // XX produce specific error motes instead of %2?
// //
if ( 0 == u3A->roc ) { if ( 0 == u3A->roc ) {
{
u3_noun tax = u3t(u3t(why));
u3m_p("mote", u3h(u3t(why)));
while ( u3_nul != tax ) {
u3_noun dat, mot, val;
u3x_cell(tax, &dat, &tax);
if ( c3y == u3r_cell(dat, &mot, &val) ) {
if ( c3__spot == mot ) {
u3m_p("tax", val);
}
else if ( (c3__mean == mot)
&& (c3y == u3a_is_atom(val)) )
{
u3m_p("men", val);
}
else {
u3m_p("mot", mot);
}
}
}
}
u3z(why); u3z(why);
return u3nc(c3__fail, u3_nul); return u3nc(c3__fail, u3_nul);
} }