diff --git a/lib/hood/helm.hoon b/lib/hood/helm.hoon index b251fc339..462361511 100644 --- a/lib/hood/helm.hoon +++ b/lib/hood/helm.hoon @@ -176,9 +176,9 @@ =+ way=?:(zus (welp top /sys/[nam]) (welp top /sys/vane/[nam])) =+ fil=.^(@ %cx (welp way /hoon)) [%flog /reload [%veer ?:(=('z' tip) %$ tip) way fil]] -:: +poke-reset: send %vega to reboot kernel +:: +poke-reset: send %lyra to initiate kernel upgrade :: -:: And reinstall %zuse and the vanes. +:: And reinstall %zuse and the vanes with %veer. :: Trigger with |reset. :: ++ poke-reset @@ -189,7 +189,7 @@ =/ top=path /(scot %p our)/home/(scot %da now)/sys =/ hun .^(@ %cx (welp top /hoon/hoon)) =/ arv .^(@ %cx (welp top /arvo/hoon)) - :- [%flog /reset [%vega `@t`hun `@t`arv]] + :- [%flog /reset [%lyra `@t`hun `@t`arv]] %+ turn (module-ova:pill top) |=(a=[wire flog:dill] [%flog a]) diff --git a/sys/arvo.hoon b/sys/arvo.hoon index 2fb00dade..2ff98aba9 100644 --- a/sys/arvo.hoon +++ b/sys/arvo.hoon @@ -667,9 +667,9 @@ |- ^- [(list ovum) *] ?~ ova [(flop out) +>.^$] - :: upgrade the kernel -- %vega here is an effect from a vane + :: upgrade the kernel :: - ?: ?=(%vega -.q.i.ova) + ?: ?=(%lyra -.q.i.ova) %+ fall (vega now t.ova ({@ @} +.q.i.ova)) [~ +>.^$] diff --git a/sys/vane/dill.hoon b/sys/vane/dill.hoon index 60088cadf..d63fdf6be 100644 --- a/sys/vane/dill.hoon +++ b/sys/vane/dill.hoon @@ -51,9 +51,9 @@ $% {$crud p/@tas q/(list tank)} :: {$heft $~} :: {$init p/ship} :: + {$lyra p/@t q/@t} :: upgrade kernel {$text p/tape} :: {$veer p/@ta q/path r/@t} :: install vane - {$vega p/@t q/@t} :: reboot by path {$verb $~} :: verbose mode == :: ++ note-eyre :: @@ -158,8 +158,8 @@ (crud p.kyz q.kyz) $blew (send %rez p.p.kyz q.p.kyz) $heft heft + $lyra (dump kyz) $veer (dump kyz) - $vega ?>(?=(^ p.kyz) (dump kyz)) $verb (dump kyz) == :: @@ -533,11 +533,7 @@ [~ ..^$] :: a %vega notification on kernel upgrade comes in on an unfamiliar duct :: - :: XX note that this is different from the %vega that triggers - :: a kernel upgrade (from lib/hood/helm) - :: XX do something about this naming collision - :: - ?: ?=([%vega ~] task) + ?: ?=(%vega -.task) [~ ..^$] :: =/ nus (ax hen) diff --git a/sys/zuse.hoon b/sys/zuse.hoon index f70affdb0..be4b0cfb0 100644 --- a/sys/zuse.hoon +++ b/sys/zuse.hoon @@ -622,10 +622,10 @@ {$burl p/@t} :: activate url {$init p/@p} :: set owner {$logo ~} :: logout + {$lyra p/@t q/@t} :: upgrade kernel {$mass p/mass} :: memory usage {$send p/lane:ames q/@} :: transmit packet {$veer p/@ta q/path r/@t} :: install vane - {$vega p/@t q/@t} :: reboot {$verb ~} :: verbose mode == :: ++ task :: in request ->$ @@ -640,14 +640,13 @@ {$hook ~} :: this term hung up {$harm ~} :: all terms hung up {$init p/ship} :: after gall ready + {$lyra p/@t q/@t} :: upgrade kernel {$noop ~} :: no operation {$sunk p=ship q=life} :: report death {$talk p/tank} :: {$text p/tape} :: {$veer p/@ta q/path r/@t} :: install vane - :: XX gross hack to trigger or report upgrade - :: - {$vega p/?(~ {p/@t q/@t})} :: reboot + {$vega ~} :: report upgrade {$verb ~} :: verbose mode == :: -- ::able @@ -705,9 +704,9 @@ ++ flog :: sent to %dill $% {$crud p/@tas q/(list tank)} :: {$heft ~} :: + {$lyra p/@t q/@t} :: upgrade kernel {$text p/tape} :: {$veer p/@ta q/path r/@t} :: install vane - {$vega p/@t q/@t} :: reboot {$verb ~} :: verbose mode == :: -- ::dill