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 :: wyl: initial will
:: hec: initial will as farm :: hec: initial will as farm
:: ::
=/ lyf/(unit life) ~(current we rug)
~& next+lyf
=/ lif/life +((fall lyf 0))
=/ loy (pit:nu:crub 512 eny) =/ loy (pit:nu:crub 512 eny)
=* rig sec:ex:loy =/ rig sec:ex:loy
=* ryt `rite`[%jewel [1 rig] ~ ~] =/ ryt/rite [%jewel [lif rig] ~ ~]
=* pub pub:ex:loy =* pub pub:ex:loy
=* cet `cert`[[doc pub] ~] =/ cet/cert [[doc pub] ~]
=* wyl `will`[[1 cet] ~ ~] =. 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 ~ ~] ~]) =. +>.$ (deal rex [[ryt ~ ~] ~])
(grow ``rex *farm wyl) (grow ``rex *farm wyl)
:: :: grow:ex:ur :: :: grow:ex:ur