Now sending all outward thoughts towards a circle as a single talk-command.

This commit is contained in:
Fang 2017-06-27 12:40:58 -07:00
parent 679ef2a6d3
commit 3f314b8bb2

View File

@ -1156,15 +1156,15 @@
::
|= {cir/circle out/(list thought)}
^+ +>
?~ out +>
::TODO just send the list at once?
=. +>
%+ da-emit ost.bol
:* %poke
/repeat/(scot %ud p.outbox)/(scot %p hos.cir)/[nom.cir]
[hos.cir %talk-guardian]
[%talk-command %publish i.out ~]
[%talk-command %publish out]
==
|- ^+ +>.^$
?~ out +>.^$
%= $
p.outbox +(p.outbox)
q.outbox (~(put by q.outbox) p.outbox i.out)