ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-30 19:11:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

sss: rocks.rule=0 now means "store genesis and one snapshot"

Browse Source
This commit is contained in:
~wicrum-wicrun 2023-06-30 15:11:46 +02:00
parent 6009e5f209
commit d98dfbe4db
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/base-dev/lib/sss.hoon
View File

@ -189,12 +189,14 @@
?@ tid.buoy-0 tid.buoy-0
^- tide
%= tid.buoy-0
rocks.rul +(rocks.rul.tid.buoy-0)
mem
^- (jug ship dude)
%- ~(run by mem.tid.buoy-0)
|= =(map dude @da)
^- (set dude)
~(key by map)
::
==
==
==
@ -237,7 +239,7 @@
%+ ~(jab by pub) path
|= =buoy
?@ tid.buoy buoy
%* . buoy(tid (form tid.buoy(rul [0 1])))
%* . buoy(tid (form tid.buoy(rul [1 1])))
rul.tid rul.tid.buoy
wav.tid ~
==
@ -418,8 +420,10 @@
=/ max-rock=[=aeon =rock:lake] (fall (pry:rok rok.tide) *[key val]:rok)
=/ max-wave (fall (bind (ram:wav wav.tide) head) 0)
=. rok.tide
=- ?. =(rocks.rul.tide 0) -
(put:rok - (fall (ram:rok rok.tide) *[key val]:rok))
%+ gas:rok +<-:gas:rok
%- tab:rok :_ [~ +(rocks.rul.tide)]
%- tab:rok :_ [~ ?:(=(rocks.rul.tide 0) 1 rocks.rul.tide)]
?: ?| =(waves.rul.tide 0)
(lth max-wave (add aeon.max-rock waves.rul.tide))
==