mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-24 18:44:07 +03:00
clay: rename %next -> %held
This commit is contained in:
parent
79f520c56c
commit
ca8249a0be
@ -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])
|
||||
|
@ -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
|
||||
|% ::
|
||||
|
@ -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)
|
||||
|
@ -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)>)}"
|
||||
|
Loading…
Reference in New Issue
Block a user