No longer send out multiple messages when inviting multiple people.

This commit is contained in:
Fang 2017-11-22 20:40:20 +01:00
parent a03a5d2feb
commit 974d1e1026

View File

@ -1193,12 +1193,10 @@
?:(add ~(dif in sis) ~(int in sis)) ?:(add ~(dif in sis) ~(int in sis))
?~ sus +>.$ ?~ sus +>.$
=. +>.$ =. +>.$
%- so-act =- (so-act [%phrase - [%inv inv so-cir]~])
:- %phrase
%- ~(rep in `(set ship)`sus) %- ~(rep in `(set ship)`sus)
|= {s/ship a/audience t/(list speech)} |= {s/ship a/audience}
:- (~(put in a) [s %inbox]) (~(put in a) [s %inbox])
[[%inv inv so-cir] t]
(so-delta-our %config so-cir %permit [add sus]) (so-delta-our %config so-cir %permit [add sus])
:: ::
++ so-admire ::< accept from ++ so-admire ::< accept from