From 7c8e49c54f6f55e3d8bc86351a0a64f8e40808c5 Mon Sep 17 00:00:00 2001
From: Philip C Monk <philip.monk@tlon.io>
Date: Fri, 13 Mar 2015 18:52:15 -0400
Subject: [PATCH] cleanup

---
 main/arvo/clay.hoon | 13 ++-----------
 main/arvo/dill.hoon |  2 --
 main/arvo/hoon.hoon |  1 -
 3 files changed, 2 insertions(+), 14 deletions(-)

diff --git a/main/arvo/clay.hoon b/main/arvo/clay.hoon
index ce5649393..288b17793 100644
--- a/main/arvo/clay.hoon
+++ b/main/arvo/clay.hoon
@@ -176,13 +176,12 @@
   ++  abet
     ^-  [(list move) rede]
     :_  red
-    ~&  >  %welding
     ;:  weld
       %+  turn  (flop yel)
       |=([a=duct b=gift] [hun %give b])
     ::
       %+  turn  (flop byn)
-      |=([a=duct b=riot] ~&(%giving-response [a %give [%writ b]]))
+      |=([a=duct b=riot] [a %give [%writ b]])
     ::
       %+  turn  (flop reg)
       |=([a=duct b=gift] [a %give b])
@@ -193,7 +192,7 @@
       [%pass b %a %want [who c] [%q %re p.q.d (scot %ud p.d) ~] q.d]
     ::
       %+  turn  (flop tag)
-      |=([a=duct b=path c=note] ~&(%tagging [a %pass b c]))
+      |=([a=duct b=path c=note] [a %pass b c])
     ==
   ::
   ++  aver                                            ::  read
@@ -233,7 +232,6 @@
     |=  [hen=duct cay=(unit cage) mun=mood]
     ^+  +>
     ?~  cay  (blub hen)
-    ~&  >  [%affirmative-balking hen mun]
     (blab hen mun u.cay)
   ::
   ++  bait
@@ -877,12 +875,9 @@
                     (blab p.i.xiq p.q.i.xiq u.u.cas)
         ==
       =+  nao=(case-to-aeon:ze q.p.q.i.xiq)
-      ~&  >  [%checking-on p.q.i.xiq]
       ?~  nao  $(xiq t.xiq, xaq [i.xiq xaq])
-      ~&  >  %found-aeon
       =+  vid=(read-at-aeon:ze u.nao p.q.i.xiq)
       ?~  vid  ~&  %':( oh well'  $(xiq t.xiq, xaq [i.xiq xaq])
-      ~&  >  %found-the-thing
       $(xiq t.xiq, ..wake (balk p.i.xiq u.vid p.q.i.xiq))
     ::
         |
@@ -2160,11 +2155,8 @@
     =+  wak=wake:une
     =+  wex=(di:wak syd)
     =+  dat=?-(+<.q.hin %writ [%& p.q.hin], %made [%| p.q.hin])
-    ~&  >  %pre-abet
     =+  wao=abet:(route:(me:ze:wex her sud) sat dat)
-    ~&  >  %post-abet
     =+  woo=abet:wao
-    ~&  >  [%merge-giving (turn -.woo |=(move ?+(-.q ~ %give -.p.q)))]
     [(weld -.wak -.woo) ..^$(ruf abet:(pish:une syd +.woo ran.wao))]
   ?-    -.+.q.hin
       %crud
@@ -2256,7 +2248,6 @@
     =+  ^=  zat
       =<  wake
       %-  take-foreign-update:(do now hen p.+.q.hin syd ruf)
-::      ~&  [%rand q.+.q.hin ((soft (unit rand)) q.+.q.hin)]
       [inx ((hard (unit rand)) q.+.q.hin)]
     =^  mos  ruf
       =+  zot=abet.zat
diff --git a/main/arvo/dill.hoon b/main/arvo/dill.hoon
index b9a77e595..e80969847 100644
--- a/main/arvo/dill.hoon
+++ b/main/arvo/dill.hoon
@@ -366,7 +366,6 @@
         ?(%init %logo %veer %vega %verb)                ::  drop-throughs
       +>(mos :_(mos [hen %give +.sih]))
         %writ                                           ::  file exists
-      ~&  >  %dill-got-writ
       %_    +>.$
           mos
         :_  mos
@@ -665,7 +664,6 @@
     ::
         %init
       =.  def  `(fall def +.hen)
-      ~&  >  %dill-sending-warp
       %=    +>.$
           our  p.kyz
           mos
diff --git a/main/arvo/hoon.hoon b/main/arvo/hoon.hoon
index 0909e7d86..a3fe3f6a5 100644
--- a/main/arvo/hoon.hoon
+++ b/main/arvo/hoon.hoon
@@ -10204,7 +10204,6 @@
         eny=@                                           ::  entropy
         niz=(pair worm (list ,[p=@tas q=vase]))         ::  modules
     ==                                                  ::
-=.  lac  %|
 =<  |%
     ++  come  |=  [@ (list ovum) pone]                  ::  11
               ^-  [(list ovum) _+>]