From b2030e47f38930628b208289a25c7095b830d2d1 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Tue, 19 Dec 2017 15:16:40 -0800
Subject: [PATCH] Fix gall scry

cf. aaa9267, fixes #512
---
 sys/vane/gall.hoon | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/sys/vane/gall.hoon b/sys/vane/gall.hoon
index 7f5689dff..eca5f2e99 100644
--- a/sys/vane/gall.hoon
+++ b/sys/vane/gall.hoon
@@ -1333,24 +1333,26 @@
   ==
 ::
 ++  scry
-  |=  {fur/(unit (set monk)) ren/@tas who/ship syd/desk lot/coin tyl/path}
+  |=  {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
   ^-  (unit (unit cage))
+  ?.  ?=($& -.why)  ~
+  =*  his  p.why
   ?:  ?&  =(%u ren)
           =(~ tyl)
           =([%$ %da now] lot)
-          (~(has by pol.all) who)
-          (~(has by bum:(~(got by pol.all) who)) syd)
+          (~(has by pol.all) his)
+          (~(has by bum:(~(got by pol.all) his)) syd)
       ==
     ``[%null !>(~)]
-  ?.  (~(has by pol.all) who)
+  ?.  (~(has by pol.all) his)
     ~
   ?.  =([%$ %da now] lot)
     ~
-  ?.  (~(has by bum:(~(got by pol.all) who)) syd)
+  ?.  (~(has by bum:(~(got by pol.all) his)) syd)
     [~ ~]
   ?.  ?=(^ tyl)
     ~
-  (mo-peek:(mo-abed:mo who *duct) syd high+`who ren tyl)
+  (mo-peek:(mo-abed:mo his *duct) syd high+`his ren tyl)
 ::
 ++  stay                                                ::  save w+o cache
   `axle`all