lib/strandio: use $spar

This commit is contained in:
~wicrum-wicrun 2023-04-24 19:09:22 +02:00
parent 673803fe0b
commit d0e8ceced9

View File

@ -335,10 +335,10 @@
(take-wake `until)
::
++ keen
|= [=ship =path]
|= =spar:ames
=/ m (strand ,(unit roar:ames))
^- form:m
=/ =card:agent:gall [%pass /keen %arvo %a %keen ship path]
=/ =card:agent:gall [%pass /keen %arvo %a %keen spar]
;< ~ bind:m (send-raw-card card)
;< [wire sign=sign-arvo] bind:m take-sign-arvo
?> ?=([%ames %tune *] sign)