base-dev: update lib/agentio

This commit is contained in:
Liam Fitzgerald 2021-09-06 14:30:47 +10:00
parent c1dff9e3f0
commit cb52de5c6c

View File

@ -119,6 +119,16 @@
^- card
[%give %fact paths cage]
::
++ fact-all
|= =cage
^- (unit card)
=/ paths=(set path)
%- ~(gas in *(set path))
%+ turn ~(tap by sup.bowl)
|=([duct ship =path] path)
?: =(~ paths) ~
`(fact cage ~(tap in paths))
::
++ kick
|= paths=(list path)
[%give %kick paths ~]