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) (take-wake `until)
:: ::
++ keen ++ keen
|= [=ship =path] |= =spar:ames
=/ m (strand ,(unit roar:ames)) =/ m (strand ,(unit roar:ames))
^- form:m ^- 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) ;< ~ bind:m (send-raw-card card)
;< [wire sign=sign-arvo] bind:m take-sign-arvo ;< [wire sign=sign-arvo] bind:m take-sign-arvo
?> ?=([%ames %tune *] sign) ?> ?=([%ames %tune *] sign)