urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Sync base to kids in capital ships.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-17 18:56:59 -07:00
parent e28c7fd468
commit 4d9c60d57a
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
base/arvo/clay.hoon
View File

@ -2439,10 +2439,15 @@
:: ::
%init %init
:_ ..^$(fat.ruf (~(put by fat.ruf) p.q.hic [hen ~ ~])) :_ ..^$(fat.ruf (~(put by fat.ruf) p.q.hic [hen ~ ~]))
=+ bos=(sein p.q.hic) =+ [bos=(sein p.q.hic) can=(clan p.q.hic)]
~& [%bos bos p.q.hic] %- zing ^- (list (list move))
?: =(bos p.q.hic) ~ :~ ~& [%bos bos p.q.hic]
[hen %pass / %c %font p.q.hic %base bos %kids]~ ?: =(bos p.q.hic) ~
[hen %pass / %c %font p.q.hic %base bos %kids]~
::
?. ?=(?(%king %czar) can) ~
[hen %pass / %c %font p.q.hic %kids p.q.hic %base]~
==
:: ::
%info %info
?: =(%$ q.q.hic) ?: =(%$ q.q.hic)