mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 18:12:47 +03:00
Stored %next requests now point to the next revision they want to check for changes.
This commit is contained in:
parent
9f94497e87
commit
0c1ed91dc6
@ -280,7 +280,7 @@
|
|||||||
++ wove {p/(unit ship) q/rove} :: stored source + req
|
++ wove {p/(unit ship) q/rove} :: stored source + req
|
||||||
++ rove :: stored request
|
++ rove :: stored request
|
||||||
$% {$sing p/mood} :: single request
|
$% {$sing p/mood} :: single request
|
||||||
{$next p/mood q/cach} :: next version
|
{$next p/mood q/(unit aeon) r/cach} :: next version of one
|
||||||
$: $mult :: next version of any
|
$: $mult :: next version of any
|
||||||
p/mool :: original request
|
p/mool :: original request
|
||||||
q/(unit aeon) :: checking for change
|
q/(unit aeon) :: checking for change
|
||||||
@ -907,7 +907,7 @@
|
|||||||
:: if the requested case is in the future, we can't know anything yet.
|
:: if the requested case is in the future, we can't know anything yet.
|
||||||
?~ aey (store ~ ~ ~)
|
?~ aey (store ~ ~ ~)
|
||||||
=+ old=(read-all-at cas)
|
=+ old=(read-all-at cas)
|
||||||
=+ yon=+((need (case-to-aeon:ze cas)))
|
=+ yon=+(u.aey)
|
||||||
|- ^+ ..start-request
|
|- ^+ ..start-request
|
||||||
:: if we need future revisions to look for change, wait.
|
:: if we need future revisions to look for change, wait.
|
||||||
?: (gth yon let.dom)
|
?: (gth yon let.dom)
|
||||||
@ -948,7 +948,7 @@
|
|||||||
^- rove
|
^- rove
|
||||||
?: ?=($mult -.rav)
|
?: ?=($mult -.rav)
|
||||||
[-.rav p.rav nex old new]
|
[-.rav p.rav nex old new]
|
||||||
:+ -.rav p.rav
|
:^ -.rav p.rav nex
|
||||||
=+ ole=~(tap by old)
|
=+ ole=~(tap by old)
|
||||||
?> (lte (lent ole) 1)
|
?> (lte (lent ole) 1)
|
||||||
?~ ole ~
|
?~ ole ~
|
||||||
@ -1860,10 +1860,11 @@
|
|||||||
|^
|
|^
|
||||||
=/ rov/rove
|
=/ rov/rove
|
||||||
?: ?=($mult -.vor) vor
|
?: ?=($mult -.vor) vor
|
||||||
|
=* mod p.vor
|
||||||
:* %mult
|
:* %mult
|
||||||
[q.p.vor [[p.p.vor r.p.vor] ~ ~]]
|
[q.mod [[p.mod r.mod] ~ ~]]
|
||||||
`let.dom
|
q.vor
|
||||||
[[[p.p.vor r.p.vor] q.vor] ~ ~]
|
[[[p.mod r.mod] r.vor] ~ ~]
|
||||||
~
|
~
|
||||||
==
|
==
|
||||||
?> ?=($mult -.rov)
|
?> ?=($mult -.rov)
|
||||||
@ -1933,7 +1934,7 @@
|
|||||||
?: ?=($mult -.vor) rov
|
?: ?=($mult -.vor) rov
|
||||||
?> ?=({* $~ $~} r.rov)
|
?> ?=({* $~ $~} r.rov)
|
||||||
=* one n.r.rov
|
=* one n.r.rov
|
||||||
[%next [p.p.one p.p.rov q.p.one] q.one]
|
[%next [p.p.one p.p.rov q.p.one] q.rov q.one]
|
||||||
::
|
::
|
||||||
++ respond :: send changes
|
++ respond :: send changes
|
||||||
|= res/(map mood (each cage lobe))
|
|= res/(map mood (each cage lobe))
|
||||||
|
Loading…
Reference in New Issue
Block a user