urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 22:33:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

++next on not just the first life

Browse Source
This commit is contained in:
Anton Dyudin 2016-12-22 18:58:20 -08:00 committed by Fang
parent 061b48d5aa
commit e327ccf604
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sys/vane/jael.hoon
View File

@ -1668,12 +1668,19 @@
:: wyl: initial will
:: hec: initial will as farm
::
=/ lyf/(unit life) ~(current we rug)
~& next+lyf
=/ lif/life +((fall lyf 0))
=/ loy (pit:nu:crub 512 eny)
=* rig sec:ex:loy
=* ryt `rite`[%jewel [1 rig] ~ ~]
=/ rig sec:ex:loy
=/ ryt/rite [%jewel [lif rig] ~ ~]
=* pub pub:ex:loy
=* cet `cert`[[doc pub] ~]
=* wyl `will`[[1 cet] ~ ~]
=/ cet/cert [[doc pub] ~]
=. syg.cet
?~ lyf syg.cet
=/ ash (sham %urbit rex u.lyf dat.cet) :: move maybe
[[rex u.lyf (sign:as:loy *@ ash)] ~ ~]
=/ wyl/will [[lif cet] ~ ~]
=. +>.$ (deal rex [[ryt ~ ~] ~])
(grow ``rex *farm wyl)
:: :: grow:ex:ur