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

Make the scry in +code work again.

Browse Source
This commit is contained in:
Elliot Glaysher 2018-08-20 16:42:26 -07:00
parent eca03bf6eb
commit 7f79f1e019
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sys/vane/ames.hoon
View File

@ -1821,7 +1821,7 @@
``[%noun !>(pals:(~(um am [now fox]) our))]
?. ?=([%life ~] tyl)
=+ muc=$(tyl [%life ~])
(perm our his ?~(muc 0 (@ud u.muc)) tyl)
(perm our his ?~(muc 0 (fall ((soft @ud) u.muc) 0)) tyl)
=+ gys=(~(us go ton.fox) our)
?~ gys ~
?. =(our his)

11
sys/vane/ford.hoon
View File

@ -4273,8 +4273,8 @@
::
=/ =beam [[our %home [%da date.build]] /hoon/hoon/sys]
::
.= (scry [%143 %noun] ~ %cw beam)
(scry [%143 %noun] ~ %cw beam(r [%da now]))
.= (scry [%141 %noun] ~ %cw beam)
(scry [%141 %noun] ~ %cw beam(r [%da now]))
== ==
::
(return-result %success %reef pit)
@ -4408,7 +4408,7 @@
=/ scry-response
?: (~(has by scry-results) scry-request)
(~(get by scry-results) scry-request)
(scry [%143 %noun] ~ `@tas`(cat 3 [vane care]:resource) beam)
(scry [%141 %noun] ~ `@tas`(cat 3 [vane care]:resource) beam)
:: scry blocked
::
?~ scry-response
@ -5159,11 +5159,6 @@
~/ %intercepted-scry
|= [ref=* (unit (set monk)) =term =beam]
^- (unit (unit (cask)))
?> ?=([@ *] ref)
=/ hoon-version=@ud -.ref
::
~| hoon-version=hoon-version
?> ?=(?(%143 %151) hoon-version)
:: if the actual scry produces a value, use that value; otherwise use local
::
=/ scry-response (scry +<.$)