From 55e895036c2bcf63265cc44955519f119e0ce54e Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Sat, 10 Mar 2018 20:57:02 -0800
Subject: [PATCH] Eliminate old-fashioned burn.

---
 include/c/motes.h |  1 +
 jets/f/ut_mint.c  | 28 ++--------------------------
 2 files changed, 3 insertions(+), 26 deletions(-)

diff --git a/include/c/motes.h b/include/c/motes.h
index 6f668791d..036059cca 100644
--- a/include/c/motes.h
+++ b/include/c/motes.h
@@ -551,6 +551,7 @@
 #   define c3__i      c3_s1('i')
 #   define c3__ic     c3_s2('i','c')
 #   define c3__ice    c3_s3('i','c','e')
+#   define c3__iced   c3_s4('i','c','e','d')
 #   define c3__if     c3_s2('i','f')
 #   define c3__ifix   c3_s4('i','f','i','x')
 #   define c3__in     c3_s2('i','n')
diff --git a/jets/f/ut_mint.c b/jets/f/ut_mint.c
index e03e803ae..2924017cc 100644
--- a/jets/f/ut_mint.c
+++ b/jets/f/ut_mint.c
@@ -567,31 +567,6 @@
         return u3nc(u3qf_face(p_gen, sut), u3nc(0, 1));
       }
 
-      case c3__ktsg: p_gen = u3t(gen);
-      _mint_used();
-      {
-        u3_noun nef = _mint_in(van, sut, gol, p_gen);
-        u3_noun p_nef = u3h(nef);
-        u3_noun q_nef = u3t(nef);
-        u3_noun fom;
-
-        {
-          u3_noun cag = u3qfu_burn(van, sut);
-          u3_noun wim = u3n_nock_an(cag, u3k(q_nef));
-
-          if ( 0 == u3h(wim) ) {
-            fom = u3nc(1, u3k(u3t(wim)));
-          } else {
-            fom = u3k(q_nef);
-          }
-          u3z(wim);
-        }
-        ret = u3nc(u3k(p_nef), fom);
-
-        u3z(nef);
-        return ret;
-      }
-
       case c3__ktls: u3x_cell(u3t(gen), &p_gen, &q_gen);
       _mint_used();
       {
@@ -719,7 +694,8 @@
         return ret;
       }
 
-      case c3__cold: p_gen = u3t(gen);
+      case c3__cold:
+      case c3__ktsg: p_gen = u3t(gen);
       _mint_used();
       {