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