urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 08:32:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: implement %base-tako scry under the %s care

Browse Source
This commit is contained in:
Yaseen 2021-12-30 21:03:20 -05:00
parent dcb8aedc09
commit b37fd09fab
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkg/arvo/sys/vane/clay.hoon
View File

@ -4022,7 +4022,7 @@
++ read-s ++ read-s
|= [yon=aeon pax=path] |= [yon=aeon pax=path]
^- (unit (unit cage)) ^- (unit (unit cage))
?. ?=([?(%tako %yaki %blob %hash %cage %open %late %base) * *] pax) ?. ?=([?(%tako %yaki %blob %hash %cage %open %late %base %base-tako) * *] pax)
`~ `~
?- i.pax ?- i.pax
%tako %tako
@ -4065,6 +4065,18 @@
``open+!>(prelude:(ford:fusion static-ford-args)) ``open+!>(prelude:(ford:fusion static-ford-args))
:: ::
%late !! :: handled in +aver %late !! :: handled in +aver
%base-tako
:: XX this ignores the given beak
?> ?=(^ t.t.pax)
:^ ~ ~ %uvs !>
^- (list @uv)
=/ tako-a (slav %uv i.t.pax)
=/ tako-b (slav %uv i.t.t.pax)
=/ yaki-a (~(got by hut.ran) tako-a)
=/ yaki-b (~(got by hut.ran) tako-b)
%+ turn ~(tap in (find-merge-points yaki-a yaki-b))
|= =yaki
r.yaki
%base %base
?> ?=(^ t.t.pax) ?> ?=(^ t.t.pax)
:^ ~ ~ %uvs !> :^ ~ ~ %uvs !>