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

Merge pull request #522 from ohAitch/gall-scry

Browse Source 
Fix gall scry
This commit is contained in:
cgyarvin 2018-01-03 13:50:52 -08:00 committed by GitHub
commit b4278602d1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
sys/vane/gall.hoon
View File

@ -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