urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 04:52:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

arvo: unflop the spur in scry

Browse Source 
No longer use reversed paths in sley-style peek handling.
This commit is contained in:
fang 2020-11-21 22:04:18 +01:00
parent ba51599e15
commit fb97528fd4
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/arvo/sys/arvo.hoon
View File

@ -200,7 +200,7 @@
?. ?=(^ ved) ~
=/ ron=@tas u.hyr
=/ bed=beam
[[u.fal u.dyc (case p.u.ved)] (flop tyl)]
[[u.fal u.dyc (case p.u.ved)] tyl]
=/ bop=(unit (unit (cask meta)))
(sod ref ~ ron bed)
?~ bop ~
@ -453,7 +453,7 @@
[%& p.bed]
q.bed
`coin`[%$ r.bed]
(flop s.bed)
s.bed
==
::
:: |spin:plow:va: move statefully

6
pkg/arvo/sys/vane/eyre.hoon
View File

@ -644,7 +644,7 @@
?- -.action
%gen
=/ bek=beak [our desk.generator.action da+now]
=/ sup=spur (flop path.generator.action)
=/ sup=spur path.generator.action
=/ ski (scry [%141 %noun] ~ %ca bek sup)
=/ cag=cage (need (need ski))
?> =(%vase p.cag)
@ -768,7 +768,7 @@
++ do-scry
|= [care=term =desk =path]
^- (unit (unit cage))
(scry [%141 %noun] ~ care [our desk da+now] (flop path))
(scry [%141 %noun] ~ care [our desk da+now] path)
::
++ error-response
|= [status=@ud =tape]
@ -1650,7 +1650,7 @@
=* desc=tape "from {(trip have)} to json"
=/ tube=(unit tube:clay)
=/ tuc=(unit (unit cage))
(scry [%141 %noun] ~ %cc [our %home da+now] (flop /[have]/json))
(scry [%141 %noun] ~ %cc [our %home da+now] /[have]/json)
?. ?=([~ ~ *] tuc) ~
`!<(tube:clay q.u.u.tuc)
?~ tube

8
pkg/arvo/sys/vane/gall.hoon
View File

@ -473,7 +473,7 @@
|= [dap=term =case:clay]
^- (each agent tang)
=/ bek=beak [our %home case]
=/ sky (ski [%141 %noun] ~ %ca bek /hoon/[dap]/app)
=/ sky (ski [%141 %noun] ~ %ca bek /app/[dap]/hoon)
?~ sky |+[leaf+"gall: {<dap>} scry blocked"]~
?~ u.sky |+[leaf+"gall: {<dap>} scry failed"]~
=/ =cage u.u.sky
@ -903,7 +903,7 @@
=/ =case:clay da+now
=/ =mars:clay [p.cage mark]:deal
=/ mars-path /[a.mars]/[b.mars]
=/ sky (ski [%141 %noun] ~ %cc [our %home case] (flop mars-path))
=/ sky (ski [%141 %noun] ~ %cc [our %home case] mars-path)
?- sky
?(~ [~ ~])
=/ ror "gall: poke cast fail :{(trip dap)} {<mars>}"
@ -1114,7 +1114,7 @@
=/ =case:clay da+now
=/ bek=beak [our %home case]
=/ mars-path /[a.mars]/[b.mars]
=/ sky (ski [%141 %noun] ~ %cc bek (flop mars-path))
=/ sky (ski [%141 %noun] ~ %cc bek mars-path)
?- sky
?(~ [~ ~])
%- (slog leaf+"watch-as fact conversion find-fail" >sky< ~)
@ -1278,7 +1278,7 @@
=/ tub=(unit tube:clay)
?: =(have want) `(bake same ^vase)
=/ tuc=(unit (unit cage))
(ski [%141 %noun] ~ %cc [our %home da+now] (flop /[have]/[want]))
(ski [%141 %noun] ~ %cc [our %home da+now] /[have]/[want])
?. ?=([~ ~ *] tuc) ~
`!<(tube:clay q.u.u.tuc)
?~ tub