replaces calls to u3qc_hor with u3qc_gor

This commit is contained in:
Joe Bryan 2019-01-08 20:13:27 -05:00
parent 421781652d
commit 8fe90875cd
8 changed files with 8 additions and 9 deletions

View File

@ -54,7 +54,6 @@
u3_noun u3qc_dvr(u3_atom, u3_atom); u3_noun u3qc_dvr(u3_atom, u3_atom);
u3_noun u3qc_end(u3_atom, u3_atom, u3_atom); u3_noun u3qc_end(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_gor(u3_atom, u3_atom); u3_noun u3qc_gor(u3_atom, u3_atom);
# define u3qc_hor u3qc_gor
u3_noun u3qc_lsh(u3_atom, u3_atom, u3_atom); u3_noun u3qc_lsh(u3_atom, u3_atom, u3_atom);
u3_noun u3qc_mas(u3_atom); u3_noun u3qc_mas(u3_atom);
u3_noun u3qc_met(u3_atom, u3_atom); u3_noun u3qc_met(u3_atom, u3_atom);

View File

@ -25,7 +25,7 @@
u3_noun c, n_c, l_c, r_c; u3_noun c, n_c, l_c, r_c;
u3_noun d; u3_noun d;
if ( c3y == u3qc_hor(b, n_a) ) { if ( c3y == u3qc_gor(b, n_a) ) {
c = _i_bif_putroot(l_a, b); c = _i_bif_putroot(l_a, b);
u3r_trel(c, &n_c, &l_c, &r_c); u3r_trel(c, &n_c, &l_c, &r_c);
d = u3nt(u3k(n_c), d = u3nt(u3k(n_c),

View File

@ -72,7 +72,7 @@
return u3m_bail(c3__exit); return u3m_bail(c3__exit);
} }
else if ( c3n == u3r_sing(n_a, b) ) { else if ( c3n == u3r_sing(n_a, b) ) {
if ( c3y == u3qc_hor(b, n_a) ) { if ( c3y == u3qc_gor(b, n_a) ) {
return u3nt(u3k(n_a), return u3nt(u3k(n_a),
u3qdi_del(l_a, b), u3qdi_del(l_a, b),
u3k(r_a)); u3k(r_a));

View File

@ -24,7 +24,7 @@
return c3y; return c3y;
} }
else { else {
if ( c3y == u3qc_hor(b, n_a) ) { if ( c3y == u3qc_gor(b, n_a) ) {
return u3qdi_has(l_a, b); return u3qdi_has(l_a, b);
} }
else return u3qdi_has(r_a, b); else return u3qdi_has(r_a, b);

View File

@ -44,7 +44,7 @@
u3qdi_int(l_a, l_b), u3qdi_int(l_a, l_b),
u3qdi_int(r_a, r_b)); u3qdi_int(r_a, r_b));
} }
else if ( c3y == u3qc_hor(n_b, n_a) ) { else if ( c3y == u3qc_gor(n_b, n_a) ) {
return u3qdi_uni(u3qdi_int(l_a, return u3qdi_uni(u3qdi_int(l_a,
u3nt(n_b, u3nt(n_b,
l_b, l_b,

View File

@ -44,7 +44,7 @@
u3qdi_mer(l_a, l_b), u3qdi_mer(l_a, l_b),
u3qdi_mer(r_a, r_b)); u3qdi_mer(r_a, r_b));
} }
else if ( c3y == u3qc_hor(n_b, n_a) ) { else if ( c3y == u3qc_gor(n_b, n_a) ) {
return u3qdi_mer(u3nt(n_a, return u3qdi_mer(u3nt(n_a,
u3qdi_mer(l_a, u3qdi_mer(l_a,
u3nt(n_b, u3nt(n_b,

View File

@ -27,7 +27,7 @@
return u3m_bail(c3__exit); return u3m_bail(c3__exit);
} }
else { else {
if ( c3y == u3qc_hor(b, n_a) ) { if ( c3y == u3qc_gor(b, n_a) ) {
c = u3qdi_put(l_a, b); c = u3qdi_put(l_a, b);
if ( c3y == u3qc_vor(n_a, u3h(c)) ) { if ( c3y == u3qc_vor(n_a, u3h(c)) ) {

View File

@ -27,7 +27,7 @@ _in_uni(u3_noun a, u3_noun b)
if ( c3y == u3r_sing(n_a, n_b) ) { if ( c3y == u3r_sing(n_a, n_b) ) {
return u3nt(u3k(n_b), _in_uni(l_a, l_b), _in_uni(r_a, r_b)); return u3nt(u3k(n_b), _in_uni(l_a, l_b), _in_uni(r_a, r_b));
} }
else if ( c3y == u3qc_hor(n_a, n_b) ) { else if ( c3y == u3qc_gor(n_a, n_b) ) {
naw = u3nt(u3k(n_a), u3k(l_a), u3_nul); naw = u3nt(u3k(n_a), u3k(l_a), u3_nul);
sub = _in_uni(naw, l_b); sub = _in_uni(naw, l_b);
neb = u3nt(u3k(n_b), sub, u3k(r_b)); neb = u3nt(u3k(n_b), sub, u3k(r_b));
@ -47,7 +47,7 @@ _in_uni(u3_noun a, u3_noun b)
else if ( c3y == u3r_sing(n_b, n_a) ) { else if ( c3y == u3r_sing(n_b, n_a) ) {
return u3nt(u3k(n_b), _in_uni(l_a, l_b), _in_uni(r_a, r_b)); return u3nt(u3k(n_b), _in_uni(l_a, l_b), _in_uni(r_a, r_b));
} }
else if ( c3y == u3qc_hor(n_b, n_a) ) { else if ( c3y == u3qc_gor(n_b, n_a) ) {
neb = u3nt(u3k(n_b), u3k(l_b), u3_nul); neb = u3nt(u3k(n_b), u3k(l_b), u3_nul);
sub = _in_uni(l_a, neb); sub = _in_uni(l_a, neb);
naw = u3nt(u3k(n_a), sub, u3k(r_a)); naw = u3nt(u3k(n_a), sub, u3k(r_a));