mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
Merge branch 'typedclay' into test
This commit is contained in:
commit
7a21ebcd85
@ -460,7 +460,7 @@
|
||||
?~ wil
|
||||
[ost %give %mean ~ %rejected ~]~
|
||||
:~ [ost %pass / %a %cash p.u.bur q.u.bur u.wil]
|
||||
[ost %pass / %c %plug our.hid %main (sein our.hid) %main]
|
||||
[ost %pass / %c %plug our.hid %main (sein our.hid) %main-away]
|
||||
[ost %give %nice ~]
|
||||
==
|
||||
::
|
||||
|
@ -1541,12 +1541,12 @@
|
||||
^+ +>
|
||||
?: (~(has by mer) ali)
|
||||
(error:he %already-merging ~)
|
||||
?: &(=(0 let.dom) !?=(%init gem))
|
||||
?: &(=(0 let.dom) !?=(?(%init %auto) gem))
|
||||
(error:he %no-bob-desk ~)
|
||||
=. gem.dat gem
|
||||
=. cas.dat [%da now]
|
||||
?: ?=(%init gem.dat)
|
||||
fetch-ali
|
||||
?: =(0 let.dom)
|
||||
fetch-ali(gem.dat %init)
|
||||
=+ (~(get by hit.dom) let.dom)
|
||||
?~ -
|
||||
(error:he %no-bob--version ~)
|
||||
@ -2364,7 +2364,7 @@
|
||||
^- (list move)
|
||||
%+ turn (limo ~[%main])
|
||||
|= syd=@tas
|
||||
[hen %pass / %c %font p.q.hic syd bos syd]
|
||||
[hen %pass / %c %font p.q.hic syd bos (cat 3 syd '-away')]
|
||||
::
|
||||
%info
|
||||
?: =(%$ q.q.hic)
|
||||
|
Loading…
Reference in New Issue
Block a user