u3: cleans up xtract.c (mostly style, minor refactoring)
u3_noun
u3x_good(u3_weak som)
{
- if ( u3_none == som ) {
- return u3m_bail(c3__exit);
- }
- else return som;
+ return ( u3_none == som ) ? u3m_bail(c3__exit) : som;
}
/* u3x_at (u3at): fragment.
@@ -19,11 +16,7 @@ u3x_good(u3_weak som)
u3_noun
u3x_at(u3_noun axe, u3_noun som)
{
- u3_weak pro = u3r_at(axe, som);
-
- if ( u3_none == pro ) {
- return u3m_bail(c3__exit);
- } else return pro;
+ return u3x_good(u3r_at(axe, som));
}
/* u3x_cell():
