mirror of
https://github.com/urbit/shrub.git
synced 2024-11-24 13:06:09 +03:00
u3: adds ghetto +mook replacement
This commit is contained in:
parent
f542e5d3aa
commit
47224ab88f
@ -1215,6 +1215,32 @@ u3m_soft(c3_w mil_w,
|
||||
// XX produce specific error motes instead of %2?
|
||||
//
|
||||
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);
|
||||
return u3nc(c3__fail, u3_nul);
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user