ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 02:22:12 +03:00
Code Issues Packages Projects Releases Wiki Activity

Stored %next requests now point to the next revision they want to check for changes.

Browse Source
This commit is contained in:
Fang 2018-04-30 22:28:57 +02:00
parent 9f94497e87
commit 0c1ed91dc6
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sys/vane/clay.hoon
View File

@ -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))