add %f %wipe cache-clear command, for |overload

arvo/ford.hoon

@@ -1878,6 +1878,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

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

arvo/zuse.hoon

@@ -2608,6 +2608,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

@@ -7,7 +7,7 @@
   !:
 :-  %say
 |=  $:  [now=@da eny=@uvI bec=beak]
-        [[arg=term ~] ~]
+        [arg=$|(~ [tym=@dr ~]) ~]
     ==
-:-  %kiln-overload
-arg
+?~  arg  $(arg [~60m ~])
+[%kiln-overload tym.arg]

lib/kiln.hoon

@@ -65,6 +65,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]                      ::
       ==                                              ::
@@ -194,8 +195,8 @@
   ==
 ::
 ++  poke-overload
-  |=  syd=term
-  abet:(emit %wait /kiln/overload/[syd] (add ~s10 now))
+  |=  tym=@dr
+  abet:(emit %wait /kiln/overload/(scot %dr tym) (add ~s10 now))
 ::
 ++  take  |=(way=wire ?>(?=([@ ~] way) (work i.way))) ::  general handler
 ++  take-mere                                         ::
@@ -287,11 +288,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