From 752a49c398e98338c9bd7dd5aa1397d3f68a8ea4 Mon Sep 17 00:00:00 2001
From: "C. Guy Yarvin" <curtis@tlon.io>
Date: Mon, 18 Sep 2017 10:25:05 -0700
Subject: [PATCH] Converted :-.

---
 app/dojo.hoon           |  2 +-
 neo/hoon.hoon           | 14 +++++++-------
 sec/com/googleapis.hoon |  2 +-
 sys/hoon.hoon           | 14 +++++++-------
 4 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/app/dojo.hoon b/app/dojo.hoon
index ea5b56f0c4..fc2fdd8c68 100644
--- a/app/dojo.hoon
+++ b/app/dojo.hoon
@@ -1608,7 +1608,7 @@
           :-  %ex
           :*  %wish
               [%base %noun]
-              :+  %cons
+              :+  %clhp
                 [%rock %tas %cx]
               %+  rash  pax.source.com
               rood:(vang | /(scot %p our.hid)/home/(scot %da now.hid))
diff --git a/neo/hoon.hoon b/neo/hoon.hoon
index 9d4df25f63..8b3c01497f 100644
--- a/neo/hoon.hoon
+++ b/neo/hoon.hoon
@@ -5439,7 +5439,7 @@
   ::                                            ::::::  tuples
     {$scon p/twig q/twig}                                ::  :_ [q p]
     {$conq p/twig q/twig r/twig s/twig}                  ::  :^ [p q r s]
-    {$cons p/twig q/twig}                                ::  :- [p q]
+    {$clhp p/twig q/twig}                                ::  :- [p q]
     {$cont p/twig q/twig r/twig}                         ::  :+ [p q r]
     {$conl p/(list twig)}                                ::  :~ [p ~]
     {$conp p/(list twig)}                                ::  :* p as a tuple
@@ -5684,7 +5684,7 @@
   ==
 ::
 ++  cons                                                ::  make formula cell
-  ~/  %cons
+  ~/  %clhp
   |=  {vur/nock sed/nock}
   ^-  nock
   ?:  ?=({{$0 *} {$0 *}} +<)
@@ -6310,7 +6310,7 @@
 ::    {^ *}       `[p.gen q.gen]
 ::    {$dbug *}   $(gen q.gen)
 ::    {$scon *}   `[q.gen p.gen]
-::    {$cons *}   `[p.gen q.gen]
+::    {$clhp *}   `[p.gen q.gen]
 ::    {$conq *}   `[p.gen %cont q.gen r.gen s.gen]
 ::    {$conl *}   ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
 ::    {$conp *}   ?~  p.gen  ~
@@ -6468,7 +6468,7 @@
         {$conq *}  [p.gen q.gen r.gen s.gen]
         {$cont *}  [p.gen q.gen r.gen]
         {$scon *}  [q.gen p.gen]
-        {$cons *}  [p.gen q.gen]
+        {$clhp *}  [p.gen q.gen]
         {$conl *}
       |-  ^-  twig
       ?~  p.gen
@@ -6768,7 +6768,7 @@
         $brwt  (lead -.gen %.(+.gen (twin noop expr)))
         $scon  (lead -.gen %.(+.gen dubs))
         $conq  (lead -.gen %.(+.gen (quad expr expr expr expr)))
-        $cons  (lead -.gen %.(+.gen dubs))
+        $clhp  (lead -.gen %.(+.gen dubs))
         $cont  (lead -.gen %.(+.gen trey))
         $conl  (lead -.gen %.(+.gen moar))
         $conp  (lead -.gen %.(+.gen moar))
@@ -9831,7 +9831,7 @@
                   :~  ['_' (rune cab %scon expb)]
                       ['^' (rune ket %conq expd)]
                       ['+' (rune lus %cont expc)]
-                      ['-' (rune hep %cons expb)]
+                      ['-' (rune hep %clhp expb)]
                       ['~' (rune sig %conl exps)]
                       ['*' (rune tar %conp exps)]
                   ==
@@ -9870,7 +9870,7 @@
                   (word %scon expb)
                   (word %conq expd)
                   (word %cont expc)
-                  (word %cons expb)
+                  (word %clhp expb)
                   (word %conl exps)
                   (word %conp exps)
                 ::
diff --git a/sec/com/googleapis.hoon b/sec/com/googleapis.hoon
index 561601d404..dd202cc4cf 100644
--- a/sec/com/googleapis.hoon
+++ b/sec/com/googleapis.hoon
@@ -23,7 +23,7 @@
   :~  login-hint+?~(lon '' (crip (rash lon suffix-email)))
       access-type+%offline
       response-type+%code
-      prompt+%consent
+      prompt+%clhpent
   ==
 ++  scopes
   :~  'https://mail.google.com'
diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 90c49d1dda..c3b762ab7c 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -5519,7 +5519,7 @@
   ::                                            ::::::  tuples
     {$scon p/twig q/twig}                                ::  :_ [q p]
     {$conq p/twig q/twig r/twig s/twig}                  ::  :^ [p q r s]
-    {$cons p/twig q/twig}                                ::  :- [p q]
+    {$clhp p/twig q/twig}                                ::  :- [p q]
     {$cont p/twig q/twig r/twig}                         ::  :+ [p q r]
     {$conl p/(list twig)}                                ::  :~ [p ~]
     {$conp p/(list twig)}                                ::  :* p as a tuple
@@ -5768,7 +5768,7 @@
   ==
 ::
 ++  cons                                                ::  make formula cell
-  ~/  %cons
+  ~/  %clhp
   |=  {vur/nock sed/nock}
   ^-  nock
   ?:  ?=({{$0 *} {$0 *}} +<)
@@ -6394,7 +6394,7 @@
 ::    {^ *}       `[p.gen q.gen]
 ::    {$dbug *}   $(gen q.gen)
 ::    {$scon *}   `[q.gen p.gen]
-::    {$cons *}   `[p.gen q.gen]
+::    {$clhp *}   `[p.gen q.gen]
 ::    {$conq *}   `[p.gen %cont q.gen r.gen s.gen]
 ::    {$conl *}   ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
 ::    {$conp *}   ?~  p.gen  ~
@@ -6552,7 +6552,7 @@
         {$conq *}  [p.gen q.gen r.gen s.gen]
         {$cont *}  [p.gen q.gen r.gen]
         {$scon *}  [q.gen p.gen]
-        {$cons *}  [p.gen q.gen]
+        {$clhp *}  [p.gen q.gen]
         {$conl *}
       |-  ^-  twig
       ?~  p.gen
@@ -6886,7 +6886,7 @@
         $brwt  (lead -.gen %.(+.gen (twin noop expr)))
         $scon  (lead -.gen %.(+.gen dubs))
         $conq  (lead -.gen %.(+.gen (quad expr expr expr expr)))
-        $cons  (lead -.gen %.(+.gen dubs))
+        $clhp  (lead -.gen %.(+.gen dubs))
         $cont  (lead -.gen %.(+.gen trey))
         $conl  (lead -.gen %.(+.gen moar))
         $conp  (lead -.gen %.(+.gen moar))
@@ -10226,7 +10226,7 @@
                   :~  ['_' (rune cab %scon expb)]
                       ['^' (rune ket %conq expd)]
                       ['+' (rune lus %cont expc)]
-                      ['-' (rune hep %cons expb)]
+                      ['-' (rune hep %clhp expb)]
                       ['~' (rune sig %conl exps)]
                       ['*' (rune tar %conp exps)]
                   ==
@@ -10265,7 +10265,7 @@
                   (word %scon expb)
                   (word %conq expd)
                   (word %cont expc)
-                  (word %cons expb)
+                  (word %clhp expb)
                   (word %conl exps)
                   (word %conp exps)
                 ::