diff --git a/pkg/arvo/lib/hood/kiln.hoon b/pkg/arvo/lib/hood/kiln.hoon index b1be5cf62..8c76cea0c 100644 --- a/pkg/arvo/lib/hood/kiln.hoon +++ b/pkg/arvo/lib/hood/kiln.hoon @@ -583,15 +583,13 @@ ..abet =/ kel i.wic %- emil - =/ cards + =/ desks=(list [=desk =zest]) %+ murn ~(tap by rock) |= [=desk =zest wic=(set weft)] ?: |(=(%base desk) !?=(%live zest) (~(has in wic) kel)) ~ - `u=[%pass /kiln/bump/[desk] %arvo %c %zest desk %held] - ?~ cards - [%pass /kiln/bump/wick %arvo %c %wick ~]~ - cards + `u=[desk %held] + [%pass /kiln/bump/zeal %arvo %c %zeal desks]~ :: ++ poke-cancel |= a=@tas diff --git a/pkg/arvo/sys/lull.hoon b/pkg/arvo/sys/lull.hoon index e99578baa..ec0e0b045 100644 --- a/pkg/arvo/sys/lull.hoon +++ b/pkg/arvo/sys/lull.hoon @@ -801,6 +801,7 @@ [%warp wer=ship rif=riff] :: internal file req [%werp who=ship wer=ship rif=riff-any] :: external file req [%wick ~] :: try upgrade + [%zeal lit=(list [=desk =zest])] :: batch zest [%zest des=desk liv=zest] :: live $>(%plea vane-task) :: ames request == :: diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon index bb2c2bd57..32f9b96d8 100644 --- a/pkg/arvo/sys/vane/clay.hoon +++ b/pkg/arvo/sys/vane/clay.hoon @@ -5018,9 +5018,22 @@ :: %wick =^ mos ruf - =/ den ((de now rof hen ruf) our %base) - abet:wick:den :: [wick] + abet:wick:((de now rof hen ruf) our %base) :: [wick] [mos ..^$] + :: + %zeal + =^ m1 ruf + =| mos=(list move) + |- ^+ [mos ruf] + ?~ lit.req + [mos ruf] + =/ den ((de now rof hen ruf) our desk.i.lit.req) + =^ mos-new ruf abet:(set-zest:den zest.i.lit.req) + $(mos (weld mos mos-new), lit.req t.lit.req) + =^ m2 ruf + abet:wick:((de now rof hen ruf) our %base) + =^ m3 ruf abet:goad:(lu now rof hen ruf) + [:(weld m1 m2 m3) ..^$] :: %zest =^ m1 ruf