ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix ames scry.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-10-08 13:44:25 -07:00
parent 7a6b52f178
commit aaa92672c8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
sys/vane/ames.hoon
View File

@ -1556,20 +1556,20 @@
..^$(fox old)
::
++ 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) [~ ~]
?~ tyl [~ ~]
=+ hun=(slaw %p i.tyl)
?~ hun [~ ~]
?. =(`@`0 ren) ~
~& [%ames-scry tyl]
?+ lot ~
{$$ $ud @}
(perm who u.hun q.p.lot [syd t.tyl])
(perm p.why u.hun q.p.lot [syd t.tyl])
::
{$$ $da @}
?. =(now q.p.lot) ~
(temp who u.hun [syd t.tyl])
(temp p.why u.hun [syd t.tyl])
==
::
++ stay fox
@ -1745,7 +1745,7 @@
=+ gys=(~(us go ton.fox) our)
?~ gys ~
?. =(our his)
?: ?=({$wyll $~} tyl)
?: ?=({$will $~} tyl)
=+ fod=(~(get by hoc.saf.u.gys) his)
?~ fod ~
%+ bind (rick mar his lew.wod.u.fod)
@ -1761,7 +1761,7 @@
``[%noun !>(`buck`[u.muc u.luw])]
?: ?=({$code $~} tyl)
``[%noun !>((end 6 1 (shaf %pass (shax sec:ex:q:sen:u.gys))))]
?: ?=({$wyll $~} tyl)
?: ?=({$will $~} tyl)
(bind (rick mar our law.saf.u.gys) |=(a/wyll `[%noun !>(a)]))
~
::