agentio: fix bug with fact-all

This commit is contained in:
ixv 2021-07-28 17:05:48 -07:00
parent ff33ddacff
commit 0226bc0a7f
2 changed files with 6 additions and 3 deletions

View File

@ -201,7 +201,9 @@
~
:: only send the last one, since hark accumulates notifcations
=/ =update [%notification `notification`(snag 0 (flop notes))]
[(fact-all:io %notify-update !>(update))]~
=/ card (fact-all:io %notify-update !>(update))
?~ card ~
[u.card]~
::
%kick
:_ this

View File

@ -117,12 +117,13 @@
::
++ fact-all
|= =cage
^- card
^- (unit card)
=/ paths=(list path)
%+ turn ~(tap by sup.bowl)
|= [duct ship =path]
path
[%give %fact paths cage]
?~ paths ~
`[%give %fact paths cage]
::
++ kick
|= paths=(list path)