From 326fd27db8a25e5316fca632b2c46437df3aef4e Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Tue, 2 Feb 2016 18:45:11 -0800
Subject: [PATCH] Fully transitioned to correct %face.

---
 include/jets/q.h |  1 -
 include/jets/w.h |  1 -
 jets/f/face.c    | 26 +-------------------------
 jets/f/type.c    |  3 ---
 jets/f/ut_burn.c |  1 -
 jets/f/ut_crop.c |  9 ---------
 jets/f/ut_find.c |  1 -
 jets/f/ut_fish.c |  1 -
 jets/f/ut_fuse.c |  8 --------
 jets/f/ut_nest.c |  2 --
 jets/f/ut_peek.c |  1 -
 jets/f/ut_repo.c |  1 -
 12 files changed, 1 insertion(+), 54 deletions(-)

diff --git a/include/jets/q.h b/include/jets/q.h
index 0a8a6c664..96b954fd0 100644
--- a/include/jets/q.h
+++ b/include/jets/q.h
@@ -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);
diff --git a/include/jets/w.h b/include/jets/w.h
index 9754cd98d..0fab2fa72 100644
--- a/include/jets/w.h
+++ b/include/jets/w.h
@@ -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);
diff --git a/jets/f/face.c b/jets/f/face.c
index 140a67e7e..4e7fe7fda 100644
--- a/jets/f/face.c
+++ b/jets/f/face.c
@@ -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);
-    }
-  }
diff --git a/jets/f/type.c b/jets/f/type.c
index 14fb6df75..d8eaa518e 100644
--- a/jets/f/type.c
+++ b/jets/f/type.c
@@ -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);
     {
     }
diff --git a/jets/f/ut_burn.c b/jets/f/ut_burn.c
index 5e07a797a..2af7d4b48 100644
--- a/jets/f/ut_burn.c
+++ b/jets/f/ut_burn.c
@@ -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);
diff --git a/jets/f/ut_crop.c b/jets/f/ut_crop.c
index 481839af2..8aaa65089 100644
--- a/jets/f/ut_crop.c
+++ b/jets/f/ut_crop.c
@@ -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);
diff --git a/jets/f/ut_find.c b/jets/f/ut_find.c
index 9445bb6a3..1e498a825 100644
--- a/jets/f/ut_find.c
+++ b/jets/f/ut_find.c
@@ -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");
diff --git a/jets/f/ut_fish.c b/jets/f/ut_fish.c
index d5a826735..7d3f1cf6a 100644
--- a/jets/f/ut_fish.c
+++ b/jets/f/ut_fish.c
@@ -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);
diff --git a/jets/f/ut_fuse.c b/jets/f/ut_fuse.c
index 545add4f2..7ea073386 100644
--- a/jets/f/ut_fuse.c
+++ b/jets/f/ut_fuse.c
@@ -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);
diff --git a/jets/f/ut_nest.c b/jets/f/ut_nest.c
index d858390df..897adacae 100644
--- a/jets/f/ut_nest.c
+++ b/jets/f/ut_nest.c
@@ -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);
diff --git a/jets/f/ut_peek.c b/jets/f/ut_peek.c
index a0018153c..41c0c5b8d 100644
--- a/jets/f/ut_peek.c
+++ b/jets/f/ut_peek.c
@@ -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);
diff --git a/jets/f/ut_repo.c b/jets/f/ut_repo.c
index d5f9932ad..8f296c897 100644
--- a/jets/f/ut_repo.c
+++ b/jets/f/ut_repo.c
@@ -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);