rewrites/re-enables +xeb jet

This commit is contained in:
Joe Bryan 2018-10-28 21:15:07 -04:00
parent b7fbd4108e
commit f8bf967912
2 changed files with 7 additions and 19 deletions

View File

@ -9,22 +9,12 @@
u3_noun
u3qc_xeb(u3_atom a)
{
mpz_t a_mp;
c3_w met_w = u3r_met(0, a);
if ( __(u3a_is_dog(a)) ) {
u3r_mp(a_mp, a);
c3_d x = mpz_sizeinbase(a_mp, 2);
mpz_t b_mp;
mpz_init_set_ui(b_mp, x);
return u3i_mp(b_mp);
}
else {
mpz_init_set_ui(a_mp, a);
c3_d x = mpz_sizeinbase(a_mp, 2);
mpz_t b_mp;
mpz_init_set_ui(b_mp, x);
return u3i_mp(b_mp);
if ( !_(u3a_is_cat(met_w)) ) {
return u3i_words(1, &met_w);
}
else return met_w;
}
u3_noun
u3wc_xeb(u3_noun cor)

View File

@ -788,9 +788,8 @@ static u3j_harm _141_two_sqt_a[] = {{".2", u3wc_sqt, c3y}, {}};
static c3_c* _141_two_sqt_ha[] = {0};
static u3j_harm _141_two_vor_a[] = {{".2", u3wc_vor, c3y}, {}};
static c3_c* _141_two_vor_ha[] = {0};
// disabled, leaks
// static u3j_harm _141_two_xeb_a[] = {{".2", u3wc_xeb, c3y}, {}};
// static c3_c* _141_two_xeb_ha[] = {0};
static u3j_harm _141_two_xeb_a[] = {{".2", u3wc_xeb, c3y}, {}};
static c3_c* _141_two_xeb_ha[] = {0};
static u3j_harm _141_two__in_bif_a[] = {{".2", u3wdi_bif}, {}};
static c3_c* _141_two__in_bif_ha[] = {0};
@ -929,8 +928,7 @@ static u3j_core _141_two_d[] =
{ "pow", 7, _141_two_pow_a, 0, _141_two_pow_ha },
{ "sqt", 7, _141_two_sqt_a, 0, _141_two_sqt_ha },
{ "vor", 7, _141_two_vor_a, 0, _141_two_vor_ha },
// disabled, leaks
// { "xeb", 7, _141_two_xeb_a, 0, _141_two_xeb_ha },
{ "xeb", 7, _141_two_xeb_a, 0, _141_two_xeb_ha },
{ "by", 7, 0, _141_two__by_d, _141_two__by_ha },
{ "in", 7, 0, _141_two__in_d, _141_two__in_ha },