verb-logger: support flushing across all agents

This commit is contained in:
fang 2024-04-01 14:44:05 +02:00
parent e221b89599
commit c010629c8b
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -168,9 +168,18 @@
this(events (~(del by events) dude))
::
[%flush =dude:gall]
|-
=* dude dude.q.vase
:- (write-events our.bowl dude (~(get ja events) dude))
this(events (~(del by events) dude))
?. =(%$ dude)
:- (write-events our.bowl dude (~(get ja events) dude))
this(events (~(del by events) dude))
=| cards=(list card)
=/ dudes=(list dude:gall) ~(tap in ~(key by events))
|- ^- (quip card _this)
?~ dudes [cards this]
=^ caz this ^$(dude.q.vase i.dudes)
=. cards (weld cards caz)
$(dudes t.dudes)
==
::
++ on-agent