ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 20:31:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: support %z scry

Browse Source
This commit is contained in:
~wicrum-wicrun 2023-03-30 13:41:40 +02:00
parent e8ae1ae86f
commit 8544c571bf
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/arvo/sys/vane/gall.hoon
View File

@ -2064,11 +2064,26 @@
== ==
?. ?=([~ %& *] res) ~ ?. ?=([~ %& *] res) ~
``[%noun %noun p.u.res] ``[%noun %noun p.u.res]
:: TODO new care to ask for hash of a sky binding
:: ::
?. ?=(%.y -.shop) ?. ?=(%.y -.shop)
~ ~
=/ =ship p.shop =/ =ship p.shop
?: ?& =(%z care)
=(our ship)
==
=/ yok (~(get by yokes.state) q.bem)
?. ?=([~ %live *] yok) ~
?~ ski=(~(get by sky.u.yok) s.bem) ~
=/ res=(unit (each noun @uvI))
?+ -.r.bem ~
%ud (get:on-path fan.u.ski p.r.bem)
%da ?.(=(p.r.bem now) ~ (bind (ram:on-path fan.u.ski) tail))
==
?+ res ~
[~ %| *] ``noun/!>(p.u.res)
[~ %& *] ``noun/!>(`@uvI`(shax (jam p.u.res)))
==
::
?: &(=(care %$) =(path /whey)) ?: &(=(care %$) =(path /whey))
=/ blocked =/ blocked
=/ queued (~(run by blocked.state) |=((qeu blocked-move) [%.y +<])) =/ queued (~(run by blocked.state) |=((qeu blocked-move) [%.y +<]))