From 8f4a8e597f9a7d07789972cbabfc985714591f6b Mon Sep 17 00:00:00 2001
From: ~wicrum-wicrun <99811688+wicrum-wicrun@users.noreply.github.com>
Date: Thu, 30 Mar 2023 13:41:40 +0200
Subject: [PATCH] gall: support %z scry

---
 pkg/arvo/sys/vane/gall.hoon | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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 +<]))