mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
naive: support "get point" scry
This commit is contained in:
parent
49fdf0a496
commit
31cc219997
@ -256,11 +256,19 @@
|
||||
++ on-leave on-leave:def
|
||||
++ on-peek
|
||||
|= =path
|
||||
?: =(/x/nas path)
|
||||
``nas+!>(nas.state)
|
||||
?: =(/x/logs path)
|
||||
^- (unit (unit cage))
|
||||
?+ path (on-peek:def path)
|
||||
[%x %logs ~]
|
||||
``logs+!>(logs.state)
|
||||
~
|
||||
::
|
||||
[%x %nas ~]
|
||||
``nas+!>(nas.state)
|
||||
::
|
||||
[%x %nas @t ~]
|
||||
?~ ship=(rush i.t.t.path ;~(pfix sig fed:ag))
|
||||
``noun+!>(*(unit point:naive))
|
||||
``noun+!>((~(get by points.nas.state) u.ship))
|
||||
==
|
||||
::
|
||||
++ on-agent
|
||||
|= [=wire =sign:agent:gall]
|
||||
|
Loading…
Reference in New Issue
Block a user