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

Stash.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-02-17 18:10:32 -08:00
parent 08c316bae3
commit e08226c69f
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
sys/parv.hoon
View File

@ -227,17 +227,36 @@
?~ bun
(va-create src)
(va-update(vax u.bun) src)
:: :: ++va-active:va:le
++ va-active :: make activated vane
|= {ski
:: :: ++va-create:va:le
++ va-create :: compile new vase
|= src/hoof
^+
::
^+ +>
:: no existing vase; compile new vase
::
~& [%vase-compile lay way `@p`(mug src)]
=. vax (slam zus.mal (ream src))
::
++ va-create
?: off
:: not booted yet, wait to activate
+>
:: already booted; activate now
::
+>(vax (slam vax !>(orb.rep)))
:: :: ++va-settle:va:le
++ va-settle :: initialize ship
^+ +>
.(vax (slap vax !>(orb.rep)))
:: :: ++va-update
++ va-update :: replace existing
|= src/hoof
?: off
:: replacing unbooted, weird
::
(va-create src)
=+ nex=(slap (slam zus.mal (ream src)) !>(orb.rep))
--
:: :: ++vale:le
++ vale :: load existing vane