hood without sole seems ready to use.

base/ape/hood/core.hook

@@ -108,7 +108,6 @@
 ::
 ++  onto-drum                                           ::
   |=  [then saw=(each ,[term @tas @da] tang)]
-  ~&  [%onto-drum +<]
   (ably (take-onto:(drum-work [hid ost src] (able %drum)) way +<+))
 ::
 ++  mere-kiln                                           ::

base/arvo/dill.hoon

@@ -180,7 +180,7 @@
         (done %blit [bit ~])
       ::
       ++  init                                          ::  initialize
-        ~&  [%dill-init our]
+        ~&  [%dill-init our ram]
         =+  myt=(flop (need tem))
         =.  tem  ~
         =.  moz  :_(moz [hen %pass / %c %font our %home our %base])
@@ -288,7 +288,7 @@
           [~ ~]
           80
           0
-          (tuba "<%dill: awaiting {(trip p.kyz)}>")
+          (tuba "<awaiting {(trip p.kyz)}>")
       ==
     --
 |%                                                      ::  poke/peek pattern
@@ -323,15 +323,7 @@
     =:  ore.all  `p.q.hic
         dug.all   ~
       ==
-    =+  ^=  flo  ^-  (list (pair ship term))
-        =+  myr=(clan p.q.hic)
-        ?:  =(%pawn myr)
-          [[p.q.hic %dojo] ~]
-        ?:  =(%earl myr)
-          =+  fap=(sein p.q.hic)
-          [[fap %dojo] [fap %talk] ~]
-        [[p.q.hic %dojo] [p.q.hic %talk] ~]
-    =^  moz  all  abet:(need (ax (need hey.all) [%flow %hood flo]))
+    =^  moz  all  abet:(need (ax (need hey.all) [%flow %hood ~]))
     ?:  |((lth p.q.hic 256) (gte p.q.hic (bex 64)))  [moz ..^$] ::  XX HORRIBLE
     [:_(moz [(need hey.all) %give %init p.q.hic]) ..^$]
   =+  nus=(ax hen q.hic)

base/arvo/gall.hoon

@@ -152,11 +152,6 @@
   ++  mo-born                                           ::  new seat
     |=  [dap=dude pup=scup hav=vase]
     =+  sat=*seat
-    =+  typ=p:(slot 13 hav)
-    ~?  =(%hood dap)  [%mo-born dap `@p`(mug typ)] 
-    =.  .  ?.  =(%hood dap)  .
-        ~>  %slog.[0 ~(duck ut typ)]
-        .
     %_    +>.$
         bum
       %+  ~(put by bum)  dap
@@ -704,7 +699,6 @@
       =+  pux=((soft path) +>.q.vax)
       ?.  &(?=(^ pux) (levy u.pux (sane %ta)))
         [%| (ap-suck "peer: malformed path")]
-      ~&  [%ap-move-peer-wire p.p.yep]
       :^  %&  sto  %pass
       :-  p.p.yep
       [%send q.p.yep r.p.yep %peer u.pux]
@@ -853,11 +847,8 @@
         ?~  vux
           `+>.$
         =+  [new=p:(slot 13 hav) old=p:(slot 13 u.vux)]
-        ~&  [%ap-prop-nest `@p`(mug new) `@p`(mug old)]
         ?.  (~(nest ut p:(slot 13 hav)) %| p:(slot 13 u.vux))
-          ~&  %nested-bad
           :_(+>.$ `(ap-suck "prep mismatch"))
-        ~&  %nested-good
         `+>.$(+13.q.hav +13.q.u.vux)
       =^  tur  +>.$
           %+  ap-call  %prep

base/lib/drum/core.hook

@@ -250,7 +250,6 @@
     |-  ^+  +>
     ?~  yar  +>
     ?:  (~(has by fur) q.i.yar)  $(yar t.yar)
-    ~&  [%adit-conf i.yar]
     %=    $
         yar  t.yar
         +>
@@ -263,7 +262,6 @@
     |-  ^+  +>
     ?~  lee  +>
     ?:  (~(has by fug) i.lee)  $(lee t.lee)
-    ~&  [%adze-peer i.lee]
     $(lee t.lee, +> (se-peer i.lee))
   ::
   ++  se-aint                                           ::  ignore result
@@ -352,7 +350,6 @@
   ++  se-join                                           ::  confirm connection
     |=  gyl=gill
     ^+  +>
-    ~&  [%drum-join gyl]
     ?>  =(~ (~(got by fug) gyl))
     se-prom(liv.maz |, fug (~(put by fug) gyl `*target))
   ::