Fully transitioned to correct %face.

This commit is contained in:
C. Guy Yarvin 2016-02-02 18:45:11 -08:00
parent df6da0fbf7
commit 326fd27db8
12 changed files with 1 additions and 54 deletions

View File

@ -165,7 +165,6 @@
u3_noun u3qf_core(u3_noun, u3_noun);
u3_noun u3qf_cube(u3_noun, u3_noun);
u3_noun u3qf_face(u3_noun, u3_noun);
u3_noun u3qf_fuss(u3_noun, u3_noun);
u3_noun u3qf_fine(u3_noun, u3_noun, u3_noun);
u3_noun u3qf_fitz(u3_noun, u3_noun);
u3_noun u3qf_flan(u3_noun, u3_noun);

View File

@ -195,7 +195,6 @@
u3_noun u3wf_core(u3_noun);
u3_noun u3wf_cube(u3_noun);
u3_noun u3wf_face(u3_noun);
u3_noun u3wf_fuss(u3_noun);
u3_noun u3wf_fine(u3_noun);
u3_noun u3wf_fitz(u3_noun);
u3_noun u3wf_flan(u3_noun);

View File

@ -1,4 +1,4 @@
/* j/6/fuss.c
/* j/6/face.c
**
*/
#include "all.h"
@ -29,27 +29,3 @@
}
}
/* functions
*/
u3_noun
u3qf_fuss(u3_noun sag,
u3_noun tip)
{
if ( c3__void == tip ) {
return c3__void;
}
else return u3nt(c3__face,
u3k(sag),
u3k(tip));
}
u3_noun
u3wf_fuss(u3_noun cor)
{
u3_noun sag, tip;
if ( c3n == u3r_mean(cor, u3x_sam_2, &sag, u3x_sam_3, &tip, 0) ) {
return u3m_bail(c3__fail);
} else {
return u3qf_fuss(sag, tip);
}
}

View File

@ -32,9 +32,6 @@
case c3__face: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
}
case c3__fuss: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
}
case c3__fork: p_sut = u3t(sut);
{
}

View File

@ -113,7 +113,6 @@
return ret;
}
}
case c3__fuss:
case c3__face: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
return _burn_in(van, q_sut, gil);

View File

@ -150,14 +150,6 @@
u3z(foz);
return ret;
}
case c3__fuss: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun foz = _crop_dext(van, q_sut, ref, bix);
u3_noun ret = u3qf_fuss(p_sut, foz);
u3z(foz);
return ret;
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);
@ -204,7 +196,6 @@
default: return u3m_bail(c3__fail);
case c3__core:
case c3__fuss:
case c3__face: u3x_cell(u3t(ref), &p_ref, &q_ref);
{
return _crop_dext(van, sut, q_ref, bix);

View File

@ -617,7 +617,6 @@
// fprintf(stderr, "core\r\n");
return _find_buck_core(van, sut, way, p_heg, q_heg, axe, lon, gil);
}
case c3__fuss:
case c3__face:
{
// fprintf(stderr, "face\r\n");

View File

@ -92,7 +92,6 @@
case c3__core: {
return u3nc(0, 0);
}
case c3__fuss:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);

View File

@ -132,14 +132,6 @@
u3z(vot);
return ret;
}
case c3__fuss: u3x_cell(u3t(sut), &p_sut, &q_sut);
{
u3_noun vot = _fuse_in(van, q_sut, ref, bix);
u3_noun ret = u3qf_fuss(p_sut, vot);
u3z(vot);
return ret;
}
case c3__fork: p_sut = u3t(sut);
{
u3_noun yed = u3qdi_tap(p_sut, u3_nul);

View File

@ -246,7 +246,6 @@
else return _nest_sint(van, sut, tel, ref, seg, reg, gil);
}
}
case c3__fuss:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);
@ -410,7 +409,6 @@
u3z(gam);
return hiv;
}
case c3__fuss:
case c3__face: {
if ( c3n == u3r_trel(ref, 0, &p_ref, &q_ref) ) {
return u3m_bail(c3__fail);

View File

@ -105,7 +105,6 @@
return pro;
}
}
case c3__fuss:
case c3__face: {
if ( (c3n == u3r_trel(sut, 0, &p_sut, &q_sut)) ) {
return u3m_bail(c3__fail);

View File

@ -34,7 +34,6 @@
return u3nt(c3__cell, c3__noun, u3k(p_sut));
}
}
case c3__fuss:
case c3__face: {
if ( c3n == u3r_cell(u3t(sut), &p_sut, &q_sut)) {
return u3m_bail(c3__fail);