From a418210acae30b73a75d2c86654b7a082eed9b45 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 21 Jan 2015 13:11:33 -0800
Subject: [PATCH] Revert "Not more broken"

This reverts commit c5012ada4e6b6a478619af6bd25d1f3e5c5eccf7.
---
 arvo/gall.hoon | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/arvo/gall.hoon b/arvo/gall.hoon
index 75df9da3b..162843268 100644
--- a/arvo/gall.hoon
+++ b/arvo/gall.hoon
@@ -42,7 +42,6 @@
               [%feel ~]                                 ::  touch
               [%load p=cage]                            ::  continue boot
               [%mess p=ship q=cage]                     ::  typed message
-              [%shoe p=path q=ptah]                     ::  subscribe out
               [%show p=ship q=path]                     ::  subscribe
               [%sire p=term q=span]                     ::  spawn subprocess
               [%nuke p=ship]                            ::  clear duct
@@ -76,7 +75,6 @@
               $:  @tas                                  ::  to any
           $%  [%meta p=vase]                            ::
           ==  ==  ==                                    ::
-++  ptah  (trel hapt ship path)                         ::  subscription endpt.
 ++  rave                                                ::  see %clay
           $%  [& p=mood]                                ::  single request
               [| p=moat]                                ::  change range
@@ -122,7 +120,6 @@
                   pus=(jug path bone)                   ::  srebircsbus
                   peq=(map bone ,@uvI)                  ::  peekers
                   qel=(map bone ,@ud)                   ::  rush queue length
-                  res=(map ,[path ptah] (unit ,@ud))    ::  remote subscribed
               ==                                        ::
               ped=(set (pair ship desk))                ::  active depends
               zam=scar                                  ::  opaque ducts
@@ -1048,14 +1045,6 @@
           =+  wir=(away %u ((hard path) p.q.caq))
           ?:  ?=(%cide p.r.q.caq)  [`(deff wir hon caq) ~]
           ?:  ?=(%sire p.r.q.caq)  [~ `(birf wir hon caq)]
-          ?:  ?=(%show p.r.q.caq)  
-              ::  ~&  [hon %pass wir (,@tas q.q.caq)]
-              ::  ~>  %slog.`(skol p:!>(type=[hon %pass wir (,@tas q.q.caq)]))
-              ::  ~>  %slog.`(sell (spec (slot 15 caq)))
-              ::  ~>  %slog.`(skol %face %type p:(spec (slot 15 caq)))
-              ::  [~ `((hard move) [hon %pass wir %g q:(slot 15 caq)])]
-            :-  `[hon ((hard knob) [%shoe p.q.caq q.r.q.caq])]
-            `[hon %pass wir %g [%meta (spec (slot 15 caq))]]
           :^  ~  ~  hon
           :^  %pass  wir
             (need ((sand %tas) ((hard ,@) q.q.caq)))
@@ -1225,17 +1214,6 @@
           %+  ford  /s/poke
           :+  %dude  leaf/"poking {err}"
           [%call (harm cog (conf (core u.huv.sat))) (cove %$ sam)]
-        ::
-            %shoe
-          ::  ~&  shoe-found/kon
-          ::  ~&  [hen %pass (away %u p.kon) %g]
-          ::  ~>  %slog.`(skol p:!>(type=[hen %pass (away %u p.kon) %g]))
-          ::  ~&  [%show q.kon]
-          ::  ~>  %slog.`(skol p:!>(type=[%show q.kon]))
-          %_  +>.$
-            res.sat  (~(put by res.sat) [p q]:kon ~)
-            qic.sat  ~
-          ==
         ::
             %show
           ?:  (warm %peer)
@@ -1270,10 +1248,7 @@
           (xeno [q.kon imp] %feel ~)
         ::
             %take
-          =.  q.kon  (spec q.kon)
-          =.  q.kon  (slop (slot 2 q.kon) (spec (slot 3 q.kon)))
           ?:  &(?=([%g %rush @ *] q.q.kon) (warm %posh))
-            ~&  posh-res/res.sat
             ?>  ?=(^ huv.sat)
             =+  gil=(spec (slot 7 q.kon))
             =+  sam=:(slop [[%atom %ud] ost] !>(p.kon) gil)