diff --git a/arvo/ford.hoon b/arvo/ford.hoon index d7189740c..b6e551292 100644 --- a/arvo/ford.hoon +++ b/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 diff --git a/arvo/gall.hoon b/arvo/gall.hoon index 99fb0daeb..2eb866605 100644 --- a/arvo/gall.hoon +++ b/arvo/gall.hoon @@ -1168,6 +1168,7 @@ $want `%a $wont `%a :: XX for begin; remove $warp `%c + $wipe `%f :: XX cache clear == -- -- diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon index a5d828a63..638aca9f9 100644 --- a/arvo/zuse.hoon +++ b/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 diff --git a/gen/hood/overload.hoon b/gen/hood/overload.hoon index 517e2fbee..fce8e8a71 100644 --- a/gen/hood/overload.hoon +++ b/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 $(arg [~60m ~]) +[%kiln-overload tym.arg] diff --git a/lib/kiln.hoon b/lib/kiln.hoon index ccb97973a..9194ce2cf 100644 --- a/lib/kiln.hoon +++ b/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 - 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 :: @@ -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