u3: fixes u3kc_bex() refcount, updates style
*/
#include "all.h"
-
-/* functions
-*/
u3_noun
u3qc_bex(u3_atom a)
{
return u3i_mp(a_mp);
}
}
+
u3_noun
u3kc_bex(u3_atom a)
{
- return u3qc_bex(u3k(a));
+ u3_noun b = u3qc_bex(a);
+ u3z(a);
+ return b;
}
+
u3_noun
u3wc_bex(u3_noun cor)
{
- u3_noun a;
-
- if ( (u3_none == (a = u3r_at(u3x_sam, cor))) ||
- (c3n == u3ud(a)) )
- {
- return u3m_bail(c3__exit);
- } else {
- return u3qc_bex(a);
+ u3_noun a = u3x_at(u3x_sam, cor);
+ return u3qc_bex(u3x_atom(a));
}
- }
-
