gall: support %t scry

This commit is contained in:
~wicrum-wicrun 2023-03-31 00:20:22 +02:00
parent 8f4a8e597f
commit 8553108c9e

View File

@ -2068,6 +2068,19 @@
?. ?=(%.y -.shop) ?. ?=(%.y -.shop)
~ ~
=/ =ship p.shop =/ =ship p.shop
?: ?& =(%t care)
=([%$ %da now] coin)
=(our ship)
==
=/ yok (~(get by yokes.state) q.bem)
?. ?=([~ %live *] yok) ~
:^ ~ ~ %file-list !> ^- (list ^path)
%+ skim ~(tap in ~(key by sky.u.yok))
|= =spur
?& =(s.bem (scag (lent s.bem) spur))
!=(s.bem spur)
==
::
?: ?& =(%z care) ?: ?& =(%z care)
=(our ship) =(our ship)
== ==