ford-fusion: hook up %cc scry to +get-cast

This commit is contained in:
Ted Blackman 2020-04-16 15:00:03 -04:00
parent ea23be3973
commit 46ee902eaa

View File

@ -4370,9 +4370,11 @@
?. ?=([@ @ ~] path)
[~ ~]
=/ cached=(unit [=tube *]) (~(get by casts.fod.dom) [i i.t]:path)
?~ cached
[~ ~]
[~ ~ %& %tube !>(tube.u.cached)]
?^ cached
[~ ~ %& %tube !>(tube.u.cached)]
=/ [=tube =state:ford:fusion]
(get-cast:(ford:fusion ank.dom ~ ~ lat.ran fod.dom) [i i.t]:path)
[~ ~ %& %tube !>(tube)]
::
:: Gets the permissions that apply to a particular node.
::