From 307f22264834b10b8524f5ff1a6e0fd5ac15e71c Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <cgyarvin@gmail.com>
Date: Fri, 31 Mar 2017 13:31:24 -0700
Subject: [PATCH] Final coherent-cords-e jets.

---
 include/c/motes.h |  1 +
 jets/f/ut_play.c  |  2 +-
 jets/z/ut_mint.c  | 11 +++++++++++
 jets/z/ut_mull.c  | 11 +++++++++++
 jets/z/ut_play.c  | 12 +++++++++++-
 5 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/include/c/motes.h b/include/c/motes.h
index 8befbc829c..ee28cf7b47 100644
--- a/include/c/motes.h
+++ b/include/c/motes.h
@@ -237,6 +237,7 @@
 #   define c3__cool   c3_s4('c','o','o','l')
 #   define c3__core   c3_s4('c','o','r','e')
 #   define c3__corm   c3_s4('c','o','r','m')
+#   define c3__corp   c3_s4('c','o','r','p')
 #   define c3__cow    c3_s3('c','o','w')
 #   define c3__cpu    c3_s3('c','p','u')
 #   define c3__crad   c3_s4('c','r','a','d')
diff --git a/jets/f/ut_play.c b/jets/f/ut_play.c
index cba96e66ae..2106a93473 100644
--- a/jets/f/ut_play.c
+++ b/jets/f/ut_play.c
@@ -202,7 +202,7 @@
           u3_noun zix = u3qfu_shep(van, "gene", 'q', u3k(gen));
 
           u3t_push(u3nc(c3__mean, zix));
-          return u3m_error("play-open");
+          return u3m_error("play-open-f");
         }
         ret = _play_x(van, sut, rex);
         u3z(rex);
diff --git a/jets/z/ut_mint.c b/jets/z/ut_mint.c
index 5e4b05e1b9..463d594fd4 100644
--- a/jets/z/ut_mint.c
+++ b/jets/z/ut_mint.c
@@ -753,6 +753,17 @@
         return ret;
       }
 
+      case c3__corp: u3x_cell(u3t(gen), &p_gen, &q_gen);
+      _mint_used();
+      {
+        u3_noun ruf = u3nc(u3_nul, 1);
+
+        ret = _mint_grow(van, sut, gol, c3__gold, ruf, q_gen);
+        u3z(ruf);
+
+        return ret;
+      }
+
       case c3__peep: u3x_cell(u3t(gen), &p_gen, &q_gen);
       _mint_used();
       {
diff --git a/jets/z/ut_mull.c b/jets/z/ut_mull.c
index 2074a3198a..405764e5f1 100644
--- a/jets/z/ut_mull.c
+++ b/jets/z/ut_mull.c
@@ -697,6 +697,17 @@
         return ret;
       }
 
+      case c3__corp: u3x_cell(u3t(gen), &p_gen, &q_gen);
+      _mull_used();
+      {
+        u3_noun ruf = u3nc(u3_nul, 1);
+
+        ret = _mull_grow(van, sut, gol, dox, c3__gold, ruf, q_gen);
+        u3z(ruf);
+
+        return ret;
+      }
+
       case c3__peep: u3x_cell(u3t(gen), &p_gen, &q_gen);
       _mull_used();
       {
diff --git a/jets/z/ut_play.c b/jets/z/ut_play.c
index 3e7831f50b..ae3addb742 100644
--- a/jets/z/ut_play.c
+++ b/jets/z/ut_play.c
@@ -202,7 +202,7 @@
           u3_noun zix = u3qzu_shep(van, "gene", 'q', u3k(gen));
 
           u3t_push(u3nc(c3__mean, zix));
-          return u3m_error("play-open");
+          return u3m_error("play-open-z");
         }
         ret = _play_x(van, sut, rex);
         u3z(rex);
@@ -425,6 +425,16 @@
         return ret;
       }
 
+      case c3__corp: u3x_cell(u3t(gen), &p_gen, &q_gen);
+      _play_used();
+      {
+        u3_noun ruf = u3nc(u3_nul, 1);
+        u3_noun ret = _play_grow(van, sut, c3__gold, ruf, q_gen);
+
+        u3z(ruf);
+        return ret;
+      }
+
       case c3__peep: u3x_cell(u3t(gen), &p_gen, &q_gen);
       _play_used();
       {