Merge remote-tracking branch 'ohaitch/ford-wipe'

Conflicts:
	urb/urbit.pill
	urb/zod/arvo/ford.hoon
	urb/zod/arvo/gall.hoon
	urb/zod/arvo/zuse.hoon
	urb/zod/gen/hood/overload.hoon
	urb/zod/lib/kiln.hoon

NB: Was briefly hotfixed to master, if you care about trivia

arvo/ford.hoon

@@ -1735,6 +1735,7 @@
       ?~(buy *baby u.buy)
   =^  mos  bay
     ?-    -.q.hic
+        $wipe  ~&(%ford-cache-wiped [~ bay(jav ~)])
         $wasp
       abet:(~(awap za [our hen [now eny ski] ~] bay) q.q.hic)
         $exec

arvo/gall.hoon

@@ -1168,6 +1168,7 @@
         $want  `%a
         $wont  `%a                                      ::  XX for begin; remove
         $warp  `%c
+        $wipe  `%f                                      ::  XX cache clear
       ==
     --
   --

arvo/zuse.hoon

@@ -2255,6 +2255,7 @@
           $%  {$exec p/@p q/(unit bilk)}                ::  make / kill
               {$wasp p/@p q/{@uvH ?}}                   ::  depends ask / kill
               {$wegh $~}                                ::  report memory
+              {$wipe p/@p $~}                           ::  clear cache
           ==                                            ::
 ::
 ::::    %gall

gen/hood/overload.hoon

@@ -1,5 +1,5 @@
 ::
-::::  /hoon+overload+hood+gen
+::::  /hoon/overload/hood/gen
   ::
 /?  314
 ::
@@ -7,7 +7,7 @@
   !:
 :-  %say
 |=  $:  {now/@da eny/@uvI bec/beak}
-        {{arg/term $~} $~}
+        {arg/$@($~ {tym/@dr} $~) $~}
     ==
-:-  %kiln-overload
+?~  arg  $(arg [~60m ~])
-arg
+[%kiln-overload tym.arg]

lib/kiln.hoon

@@ -64,6 +64,7 @@
           {$ogre wire $@(@tas beam)}                    ::
           {$merg wire @p @tas @p @tas case germ}        ::
           {$poke wire dock pear}                        ::
+          {$wipe wire @p $~}                            ::
           {$wait wire @da}                              ::
           {$warp wire sock riff}                        ::
       ==                                                ::
@@ -191,8 +192,8 @@
   ==
 ::
 ++  poke-overload
-  |=  syd/term
+  |=  tym/@dr
-  abet:(emit %wait /kiln/overload/[syd] (add ~s10 now))
+  abet:(emit %wait /kiln/overload/(scot %dr tym) (add ~s10 now))
 ::
 ++  take  |=(way/wire ?>(?=({@ $~} way) (work i.way))) ::  general handler
 ++  take-mere                                         ::
@@ -281,11 +282,11 @@
 ++  take-wake-overload
   |=  {way/wire $~}
   ?>  ?=({@ $~} way)
-  =+  syd=(slav %tas i.way)
+  =+  tym=(slav %dr i.way)
   =.  +>.$
-    (emit %poke /kiln/overload/[syd] [our %hood] %helm-reload ~[syd])
+    (emit %wipe /kiln/overload/[i.way] our ~)
   =.  +>.$
-    (emit %wait /kiln/overload/[syd] (add ~m60 now))
+    (emit %wait /kiln/overload/[i.way] (add tym now))
   abet
 ::
 ++  spam