diff --git a/pkg/arvo/sys/vane/gall.hoon b/pkg/arvo/sys/vane/gall.hoon index 7f0217c32..60b736b51 100644 --- a/pkg/arvo/sys/vane/gall.hoon +++ b/pkg/arvo/sys/vane/gall.hoon @@ -2064,11 +2064,26 @@ == ?. ?=([~ %& *] res) ~ ``[%noun %noun p.u.res] - :: TODO new care to ask for hash of a sky binding :: ?. ?=(%.y -.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)) =/ blocked =/ queued (~(run by blocked.state) |=((qeu blocked-move) [%.y +<]))