Merge commit '7201e' into cc-merge

This commit is contained in:
C. Guy Yarvin 2016-11-13 18:55:13 -08:00
commit 73340dd5c6

View File

@ -1013,8 +1013,6 @@
::
++ who :: %who
|= pan/(set partner) ^+ ..sh-work
=+ foo=`(list (pair partner atlas))`(~(tap by q.owners.she))
=+ 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)) ~