This commit is contained in:
C. Guy Yarvin 2014-12-17 13:49:40 -08:00
parent 3f5a20b3cf
commit abf481c069

View File

@ -411,7 +411,7 @@
:- %ping :- %ping
%- ~(gas by *(map station presence)) %- ~(gas by *(map station presence))
%+ turn (~(tap in u.targets) ~) %+ turn (~(tap in u.targets) ~)
|=(a=station [a %hear]) |=(a=station [a mode])
== ==
:: ::
%cmd-ac %cmd-ac
@ -420,8 +420,7 @@
%mean [(send /out %give +.sih) +>.$] %mean [(send /out %give +.sih) +>.$]
?(%rush %rust) ?(%rush %rust)
?> ?=(%type -.p.sih) ?> ?=(%type -.p.sih)
~& [%talk-inputting p.p.sih] [~ +>.$(mode ?:(p.p.sih %talk %hear))]
[~ +>.$(mode ?:(p.p.sih %
== ==
:: ::
%command %command