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) ?. ?=([@ @ ~] path)
[~ ~] [~ ~]
=/ cached=(unit [=tube *]) (~(get by casts.fod.dom) [i i.t]:path) =/ cached=(unit [=tube *]) (~(get by casts.fod.dom) [i i.t]:path)
?~ cached ?^ cached
[~ ~] [~ ~ %& %tube !>(tube.u.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. :: Gets the permissions that apply to a particular node.
:: ::