From d6e1e3bc277c4463b7967e26e52d8954504874d4 Mon Sep 17 00:00:00 2001
From: Joseph Bryan <joemfb@gmail.com>
Date: Wed, 4 Apr 2018 14:07:05 -0400
Subject: [PATCH] replaces all tall cnsg hoons with %#

---
 app/talk.hoon      |  7 +++----
 sys/hoon.hoon      | 16 +++++++---------
 sys/vane/clay.hoon | 31 ++++++++++++++-----------------
 sys/vane/dill.hoon | 16 ++++++++--------
 sys/zuse.hoon      | 10 +++++-----
 5 files changed, 37 insertions(+), 43 deletions(-)

diff --git a/app/talk.hoon b/app/talk.hoon
index d6553ce88..b285173b7 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -2356,10 +2356,9 @@
         ?:  &(?=(^ pre) p.u.pre)  q.u.pre
         ?:  pat.sep  " "
         =-  (weld - q:(fall pre [p=| q=" "]))
-        %~  ar-glyf  ar
-          ?:  =(who self)  aud
-          (~(del in aud) [who %inbox])
-        ==
+        %#  ar-glyf  ar
+        ?:  =(who self)  aud
+        (~(del in aud) [who %inbox])
       =/  lis/(list tape)
         %+  simple-wrap
           `tape``(list @)`(tuba (trip msg.sep))
diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index c7957c7ff..a563b91dc 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -9800,10 +9800,9 @@
       ~>(%mean.[%leaf "rest-loop"] !!)
     =>  .(fan (~(gas in fan) leg))
     %-  fork
-    %~  tap  in
-      %-  ~(gas in *(set type))
-      (turn leg |=({p/type q/hoon} (play(sut p) q)))
-    ==
+    %#  tap  in
+    %-  ~(gas in *(set type))
+    (turn leg |=({p/type q/hoon} (play(sut p) q)))
   ::
   ++  take
     |=  {vit/vein duz/tyro}
@@ -10270,11 +10269,10 @@
       :_  q.doy
       :_  p.doy
       %^  cat  3
-        %~  rent  co
-            :+  %$  %ud
-            %-  ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
-            |=([[@ a=@u] b=@u] (add a b))
-        ==
+        %#  rent  co
+        :+  %$  %ud
+        %-  ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
+        |=([[@ a=@u] b=@u] (add a b))
       %^  cat  3
         ?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
       =+  gum=(mug q.s.q.sut)
diff --git a/sys/vane/clay.hoon b/sys/vane/clay.hoon
index c4d4aeaac..c6f7189fc 100644
--- a/sys/vane/clay.hoon
+++ b/sys/vane/clay.hoon
@@ -2276,11 +2276,10 @@
       ?:  |(?=($~ for) (may-read u.for %z yon pax))  ~
       %-  malt
       %+  skim
-        %~  tap  by
-          =<  q
-          %-  aeon-to-yaki
-          yon
-        ==
+        %#  tap  by
+        =<  q
+        %-  aeon-to-yaki
+        yon
       |=  {p/path q/lobe}
       ?|  ?=($~ pax)
           ?&  !?=($~ p)
@@ -3002,12 +3001,11 @@
               ~
             `[pax ~]
           =+  ^=  bof
-              %-  %~  int  by
-                    %-  ~(uni by `(map path *)`new.dal.dat)
-                    %-  ~(uni by `(map path *)`cal.dal.dat)
-                    %-  ~(uni by `(map path *)`can.dal.dat)
-                    `(map path *)`old.dal.dat
-                  ==
+              %-  %#  int  by
+                  %-  ~(uni by `(map path *)`new.dal.dat)
+                  %-  ~(uni by `(map path *)`cal.dal.dat)
+                  %-  ~(uni by `(map path *)`can.dal.dat)
+                  `(map path *)`old.dal.dat
               %-  ~(uni by `(map path *)`new.dob.dat)
               %-  ~(uni by `(map path *)`cal.dob.dat)
               %-  ~(uni by `(map path *)`can.dob.dat)
@@ -3343,12 +3341,11 @@
         =.  erg.dat  %-  ~(uni by del)
                      ^-  (map path ?)
                      %.  |=(lobe %&)
-                     %~  run  by
-                       %-  ~(uni by new.dal.dat)
-                       %-  ~(uni by cal.dal.dat)
-                       %-  ~(uni by cas)
-                       hot
-                     ==
+                     %#  run  by
+                     %-  ~(uni by new.dal.dat)
+                     %-  ~(uni by cal.dal.dat)
+                     %-  ~(uni by cas)
+                     hot
         checkout
       ::
       ::  Convert new commit into actual data (i.e. blobs rather than lobes).
diff --git a/sys/vane/dill.hoon b/sys/vane/dill.hoon
index 4c68ae188..72ed2a1ef 100644
--- a/sys/vane/dill.hoon
+++ b/sys/vane/dill.hoon
@@ -454,14 +454,14 @@
       ?.  ?=($flow -.kyz)  ~
       %-  some
       %.  q.kyz
-      %~  into  as
-          :-  [~ hen u.ore.all]
-          :*  p.kyz
-              [~ ~]
-              80
-              0
-              (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
-      ==  ==
+      %#  into  as
+      :-  [~ hen u.ore.all]
+      :*  p.kyz
+          [~ ~]
+          80
+          0
+          (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
+      ==
     --
 |%                                                      ::  poke+peek pattern
 ++  call                                                ::  handle request
diff --git a/sys/zuse.hoon b/sys/zuse.hoon
index e292f51ca..c2d019057 100644
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@@ -4182,11 +4182,11 @@
       (weld (trip -.man) `tape`[':' (trip +.man)])
     ::                                                  ::  ++clot:en-xml:html
     ++  clot  ~+                                        ::  self-closing tags
-      %~  has  in
-          %-  silt  ^-  (list term)  :~
-            %area  %base  %br  %col  %command  %embed  %hr  %img  %inputt
-            %keygen  %link  %meta  %param     %source   %track  %wbr
-      ==  ==
+      %#  has  in
+      %-  silt  ^-  (list term)  :~
+        %area  %base  %br  %col  %command  %embed  %hr  %img  %inputt
+        %keygen  %link  %meta  %param     %source   %track  %wbr
+      ==
     --  ::en-xml
   ::                                                    ::  ++de-xml:html
   ++  de-xml                                            ::  xml parser