clay: rename %next -> %held

This commit is contained in:
Philip Monk 2022-10-13 19:27:50 -07:00
parent 79f520c56c
commit ca8249a0be
4 changed files with 10 additions and 11 deletions

View File

@ -454,12 +454,12 @@
|= [=desk =arak-9]
^- (unit [^desk zest])
?: liv.rein.arak-9
`[desk %next]
`[desk %held]
?~ rail.arak-9
~
?: paused.u.rail.arak-9
~
`[desk %next]
`[desk %held]
::
:_ [%10 |1.+.old(syn 0, ark ~)]
;: weld
@ -578,7 +578,7 @@
|= [=desk =zest wic=(set weft)]
?: |(=(%base desk) !?=(%live zest) (~(has in wic) kel))
~
`u=[%pass /kiln/bump/[desk] %arvo %c %zest desk %next]
`u=[%pass /kiln/bump/[desk] %arvo %c %zest desk %held]
?~ cards
[%pass /kiln/bump/wick %arvo %c %wick ~]~
cards
@ -688,7 +688,7 @@
zyn
(~(del by zyn) loc u.got)
=? ..abet ?=(%dead zest)
(emit %pass /kiln/install %arvo %c %zest loc %next)
(emit %pass /kiln/install %arvo %c %zest loc %held)
?: (~(has by zyn) loc her rem)
abet:(spam (render "already syncing" loc her rem ~) ~)
?: =([our loc] [her rem])

View File

@ -940,7 +940,7 @@
r=tako :: self-reference
t=@da :: date
== ::
+$ zest $~(%dead ?(%dead %live %next)) :: how live
+$ zest $~(%dead ?(%dead %live %held)) :: how live
:: ::
++ tire :: app state
|% ::

View File

@ -1880,7 +1880,6 @@
=. ..park wake:?:(mem (ergo 0 mum.res) ..park)
:: if upgrading kelvin and there's a commit-in-waiting, use that
::
:: XX delete old items from wic
=? ..park &(=(%base syd) !=(old-kel kel))
=/ desks=(list [=desk =dojo]) ~(tap by dos.rom)
=^ moves-1 ruf abet
@ -1906,7 +1905,7 @@
?- liv.dom
%dead ..park
%live goad
%next (emit hen %pass /park-next/[syd] %b %wait now)
%held (emit hen %pass /park-held/[syd] %b %wait now)
==
::
:: +is-kernel-path: should changing .pax cause a kernel or vane reload?
@ -2201,7 +2200,7 @@
--
--
::
++ take-park-next
++ take-park-held
|= err=(unit tang)
^+ ..park
?^ err
@ -5630,12 +5629,12 @@
abet:(take-fuse:den [ali-ship ali-desk (case +.ali-case)] p.hin)
[mos ..^$]
::
?: ?=([%park-next @ ~] tea)
?: ?=([%park-held @ ~] tea)
?> ?=(%wake +<.hin)
=* syd i.t.tea
=^ mos ruf
=/ den ((de now rof hen ruf) our syd)
abet:(take-park-next:den error.hin)
abet:(take-park-held:den error.hin)
[mos ..^$]
::
?: ?=([%foreign-warp *] tea)

View File

@ -71,7 +71,7 @@
?- zest.dek
%live "running"
%dead "suspended"
%next "suspended until next update"
%held "suspended until next update"
==
:~ leaf/"/sys/kelvin: {<[lal num]:weft>}"
leaf/"base hash: {?.(=(1 (lent meb)) <meb> <(head meb)>)}"