ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 20:04:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge commit '6154c0f' into cc-merge

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-11-13 17:56:59 -08:00
commit 0fecb3e060
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
app/talk.hoon
View File

@ -1012,15 +1012,9 @@
|=(a/(set partner) [%txt <a>]) :: XX ~(te-whom te man.she a)
::
++ who :: %who
|= pan/(set partner) ^+ ..sh-work
=. pan
?^ pan pan
:: default to all named channels
%- ~(rep by nik)
|= {{a/(set partner) @} b/(set partner)}
(~(uni by a) b)
|= pan/(set partner) ^+ ..sh-work
=+ foo=`(list (pair partner atlas))`(~(tap by q.owners.she))
=+ bar=`(list (pair partner atlas))`(sort foo aor)
=+ bar=`(list (pair partner atlas))`(sort foo aor)
=< (sh-fact %mor (murn (sort (~(tap by q.owners.she) ~) aor) .))
|= {pon/partner alt/atlas} ^- (unit sole-effect)
?. |(=(~ pan) (~(has in pan) pon)) ~